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DICK SMITH’S 
FIRST BOOK OF PROGRAMS 

FOR THE VZ200 



FOREWORD FROM DICK SMITH 


Incredible! I just can't seem to keep up with the way these 
computers continue to get not only smaller, but also more 
intelligent. With the release of our amazing new VZ-200 
computer, we have continued our commitment to making available 
what we believe are some of the most exciting advances in 
computer technology to be seen in years. 

Who would have imagined just a few short years ago that we would 
be able to produce a machine like the VZ-200 with features such 
as colour, graphics, sound and BASIC from the well respected 
American firm, Microsoft. Add to that outputs for either T.V. or 
monitor, provision for cassette storage, memory expansion and a 
printer interface. Take all this, pack it into a small, neat 
package and sell it for an unbelievably low price of just 
$199.00. Whoever would have believed it! 

In brief, this then is the amazing VZ-200 and as far as value 
for money is concerned, I believe that it will be very hard to 
beat. 

The VZ-200 is primarily aimed at the person who wants to 'get 
into' computing and learn 'what it's all about' without having 
the normal hassles associated with larger, more expensive 
machines. 

Regardless of whether you are young or classed as an 'oldie' (by 
others that is), you will benefit from the many facets of 
learning that can be enjoyed using your VZ-200. You will quickly 
appreciate the diversity of capability and you will find that as 
you learn one facet of the VZ-200, it will lead you into 
another, each time increasing your own ability. You may for 
example be interested in producing colourful graphics designs, 
simple music or like to simply 'muck about' with programming. It 
doesn't really matter, so long as you have fun doing it. 

To enable us therefore to give you a really good introduction, 
and to assist by taking some of the mystery out of computer 
programming, we have produced this book of programs to help show 
you 'how it's done'. Some are entertaining and some are 
educational. We hope you enjoy the programs presented herein and 
while you are learning about your new computer, remember to have 
fun! 
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Crazy Story 


As the first program in our book for the VZ-200, we decided it 
would be a good idea to get you laughing. We certainly hope that 
it does! 

This program jumbles up parts of a series of 10 stories with 
crazy results. The stories are then displayed on your screen and 
if you have a printer attached to your computer, you can choose 
to print the story out on paper and even produce your own book! 

FOR THE PROGRAMMER 

As this book has been written with the intention of helping you 
to learn more about the programming side of your VZ-200, we will 
present in this segment for each program, information relating 
to 'how it's done' in the program. 

It is also important to note that where the little pointer 
is used in the margin of a program line, it means that the 
information needed to determine how we achieved the particular 
graphics code used in that program line can be found at the end 
of each program. This mainly relates to the use of inverse or 
graphics characters fed in directly from the keyboard. 

In this first program, note the routine used at lines 
20040-20070 which creates the MARQUEE effect. 



10 REM * CRAZY STORY * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

35 CLS: COLOR ,0 

40 DIM Al$ (10) , A2$ (10) , A3$ (10) , A4$(10), A5$(10) 

50 FOR N = 0 TO 10:READ Al$(N):NEXT 

60 FOR N = 0 TO 10:READ A2$(N):NEXT 

80 FOR N = 0 TO 10:READ A3$(N):NEXT 

90 FOR N = 0 TO 10:READ A4$(N):NEXT 

100 FOR N = 0 TO 10:READ A5$(N):NEXT 

110 IF PEEK(28416) < 200 THEN PT$ = "NO PRINTER" ELSE PT$ = 
120 GOSUB 20000 ' (INTRODUCTION) 

1000 REM MAIN ROUTINE 

1010 GOSUB 40000 ' (CLEAR SCREEN) 

1020 Al = RND(ll) - 1 
1030 A2 = RND(ll) - 1 
1040 A3 = RND(ll) - 1 
1050 A4 = RND(ll) - 1 
1060 A5 = RND(ll) - 1 
1100 PRINT@162,Al$(Al); 

1110 PRINT@194,A2$ (A2) ; 
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EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1030 

CTRL 

+ 


INV 

+ 

TEXT: 

VZ-200 JUMBLE 

CODE 

Line 

3120 

CTRL 

+ 


INV 

+ 

TEXT: 

WRONG ! 


Line 

3170 

CTRL 

+ 


INV 

+ 

TEXT: 

TRY AGAIN ! 


Line 

3180 

CTRL 

+ 


INV 

+ 

TEXT: 

LAST CHANCE ! 


Line 

5010 

CTRL 

+ 


INV 

+ 

TEXT: 

CORRECT ! 


Line 

6010 

CTRL 

+ 


INV 

+ 

TEXT: 

YOU BOMBED ! ! 


Line 

7050 

CTRL 

+ 


INV 

+ 

TEXT: 

PRESS (SPACE) 

FOR NEW GAME 

Line 

20020 

SHIFT 


+ 

A, 

then SHIFT + Y's, then 

SHIFT + S 

Line 

20030 

SHIFT 


+ 

D, 

then SHIFT + T's, then 

SHIFT + F 

Line 

20050 

SHIFT 


+ 

I 





Line 

20060 

SHIFT 


+ 

U 





Line 

20080 

SHIFT 


+ 

s 








Word Race 


This program is an exciting race against the clock to sort a 
list of six words into alphabetical order. The faster you do it, 
the higher your score. The computer will keep track of the name 
and score of the player with the highest score. Good luck! 


FOR THE PROGRAMMER 


In order to determine which keys are being pressed we use the 
PEEK command to examine location 28416 (line 103). The value 
stored in this location will determine which key has been 
pressed. 

If you have the 16K memory expansion module fitted, it would be 
a good idea to add more words to the program. To do this simply 
add extra DATA lines and alter (by increasing) the value of NW 
in line 90. You may also have to increase the amount of space 
CLEARed for strings in line 60. 



10 
20 
30 
50 
60 
90 
100 
110 
120 
130 
140 
200 
210 
220 
300 
310 
320 
330 
340 
1000 
1002 
1005 
1010 
1015 
1020 
1030 
1035 


RICHMOND 


REM * WORD RACE * 

REM WRITTEN BY WAYNE 
REM (APRIL 1983) 

CLS 

CLEAR 200 

NW = 56 'NUMBER OF WORDS 
DIM W$(NW) 

CD = 6000 '(SET COUNTDOWN) 

CP = 80 '(SET CURSOR POSITION) 
COLOR 4 '(SET RED) 

DN = 2000 '(SET DELAY TIMER) 
FOR N = 1 TO NW 
READ W$(N) 

NEXT 

GOSUB 31000 
GOSUB 32000 
GOSUB 35000 
GOSUB 20000 
GOSUB 2000 
REM PEEK KEYBOARD 
IF TS = 0 THEN 1015 
PRINT0151,; 

PRINTUSING"(#,###) " 

PO=66:G=1:W=1 
PRIHT6P0, "■".i 
KB=PEEK(28416) 

GOSUB 6000 


' (INSTRUCTIONS) 
' (INPUT NAME) 

' (CLEAR SCREEN) 
' (SELECT LIST) 
(PRINT LIST) 


TS 
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1040 

IF KB = 251 

THEN 

GOSUB 5000 





1050 

IF KB <> 239 AND 

KB 

<> 253 

THEN 

1030 



1055 

SOUND RND(32)-1, 

1 






1060 

PRINT0PO," 

ii. 
f 







1070 

IF KB = 239 

THEN 

PO 

= PO + 

64: W 

= W + 

l:GOTO 

1100 

1080 

IF KB = 253 

THEN 

PO 

= PO - 

64 :W 

= W - 

1:GOTO 

1200 

1100 

IF PO > 386 

THEN 

PO 

= 66: W 

= 1 




1110 

GOTO 1020 








1200 

IF PO < 66 

THEN 

PO = 

386 :W 

= 6 





1210 GOTO 1020 
2000 REM PRINT WORDS 
2005 P=68 

2020 FOR N = 1 TO 6 
2030 PRINT@P,W$(R(N)) 

2040 P=P+64 

2050 NEXT 

2060 RETURN 

5000 REM CHECK ANSWER 

5010 IF W$(R(W)) = A$(G) THEN 7000 ELSE 8000 
6000 REM PRINT COUNTDOWN 
6010 CD=CD-5 
6030 PRINT@88,; 

6035 PRINTUSING"#,###";CD 
6040 IF CD <= 0 THEN 9000 
6050 RETURN 

7000 REM PRINT CORRECT WORD 
7020 PRINT@CP,W$(R(W)); 

7030 PRINT0PO+2," 

7040 FOR N = 1 TO 1 

7050 SOUND 16,1 

7060 SOUND 13,1 

7070 NEXT 

7080 G = G + 1 

7090 IF G > 6 THEN 9000 

7100 CP = CP + 64 

7110 RETURN 

8000 REM WRONG ANSWER PENALTY 

8010 CD = CD - 100 

8020 IF CD < 0 THEN CD = 0 

8030 GOSUB 6000 

8040 SOUND 2,5 

8050 RETURN 

9000 REM END ROUTINE 

9010 PRINT0PO," 

9020 IF CD => TS THEN GOSUB 10000 

9030 PRINT0450,"PRESS <<RETURN>> FOR NEW GAME"; 

9035 K$ = INKEY$ 

9040 I$ = INKEY$:IFI$=""THEN 9040 
9050 IF ASC(1$) <> 13 THEN 9040 
9060 GOSUB 35000 
9070 GOSUB 31030 

9080 CD = 6000 '(RESET COUNTDOWN) 

9090 CP = 80 '(SET CURSOR POSITION) 

9100 GOTO 310 
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10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070. 

10080 

10090 

10100 

10110 

10120 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

21000 

21010 

21020 

21030 

21040 

21050 

21060 

21070 

21080 

21090 

21100 

21110 

30000 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30090 

31000 

31010 

31020 

31025 

31030 

31040 

31050 

31060 

31080 


REM END ROUTINE 

IF TS = 0 THEN 10110 

PR I NTS 162, "liiaSMCaiMBiatiC-lar • 

SOUND 16,3 
SOUND 11,2 
SOUND 11,1 
SOUND 13,3 
SOUND 11,3 
SOUND 0,2 
SOUND 15,4 
SOUND 16,4 

TS = CD:TS$ = N$:DN = 300 
RETURN 

REM SORT RANDOM SEQUENCE 
FOR N = 1 TO 6 
R=RND(NW) 

FOR NN = 1 TO N 

IF R=R (NN) THEN 20020 
NEXT NN 
R (N)=R 

R$ (N) =W$ (R (N) ) 

NEXT N 

REM SORT INTO A.O. 

FOR X = 1 TO 6 
MX=X 

FOR N = X+l TO 6 

IF R$ (N) < R$ (MX) THEN MX = N 
NEXT N 
T$=R$(X) 

A$(X)=R$(MX) 

R$(MX)=T$ 

NEXT X 

A$ (6 ) = R$ (MX) 

RETURN 

REM DRAW FRAME 

PRINTS©, 11 -. —. -.-.-.— 

PR INTS480 .• " .... 

FOR N = 32 TO 448 STEP 32 
PRINTSH, " ■" .1 
PRINTSN+31 , ”■ "j 
NEXT N 
PRINTS31 , "» 

POKE 29183,184 
RETURN 

REM INSTRUCTIONS 
CLS 

GOSUB 30000 '(FRAME) 

COLOR 3 

PRINTS?©, "I ISM—!»«■ I" 

T$="(BY WAYNE G. RICHMOND)" 

FORN=1TOLEN(T$) 

PRINT0133,RIGHT$(T$,N); 

NEXT 



II 
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31090 

31100 

31110 

31120 

31130 

31140 

31150 

31160 

31170 

31180 

31195 

31200 

31205 

31210 

31220 

31230 

31240 


31250 

31260 

31270 

31280 

32000 

32010 

32035 

32040 

32050 

32060 

32070 

32080 

32090 

32100 

JW>32110 

32300 

35000 

35010 

35020 

35030 

35040 

40000 

40010 

40020 

40030 

40040 

40050 

40060 


PRINT0194,"HOW QUICKLY CAN YOU SORT"; 

PRINT0226,"A LIST OF WORDS INTO"; 

PRINT0258,"ALPHABETICAL ORDER?"; 

PRINT0322,"ARROW KEYS POSITION CURSOR"; 

PRINT0354,"<<CTRL>> KEY SELECTS WORD"; 

T$ = "MISTAKES COST 100 POINTS!" 

FOR N = 1 TO LEN (T$) 

PRINT0418,RIGHT$(T$,N); 

NEXT 

FOR N = 1 TO DN:NEXT 
K$ = INKEY $ 

PRINT0131," <<HIT ANY KEY TO BEGIN>>"; 

SOUND 30,1 
FOR N = 1 TO 80 

I$=INKEY$:IFI$<>""THENRETURN 
NEXT 

PRINT0132," "; 

FOR N = 1 TO 20 
I$=INKEY $:IFI$<>""THENRETURN 
NEXT 

GOTO 31200 

REM INPUT NAME ROUTINE 
GOSUB 35000 '(CLEAR SCREEN) 

IF TS = 0 THEN 32060 
PRINT@130,; 

PRINTUSING"TOP SCORE: #,### % %";TS;TS$ 

PRINT0226,"PLEASE TYPE YOUR FIRST NAME"; 

PRINT0258,"AND PRESS «RETURN>>"; 

PRINT0354,; 

N $ = " " 

INPUT N$ 

IF N* = "■ " THEN 32080 
RETURN 

REM CLEAR CENTRE OF FRAME 
FOR N = 34 TO 450 STEP 32 
PRINT0N," "; 

NEXT 

RETURN 

REM WORD COLLECTION 

DATA ANT,DOG,CAT,HOUSE,MAN,BOAT,CAR,HEATER,CARPET,WATER 
DATA HAT,MOUSE,VAN,WIND,GREEN,WIDE,YELLOW,RED,BLACK,TOP 
DATA HAIR,HALF,HAIL,TICKET,THING,FOOT,FOLD,FOG,FOOD,FIT 
DATA PRINT,PRINCE,PRIDE,MUSIC,MUSTARD,SPACE,SPADE,FLOOR 
DATA SNUG,SOUND,SOUL,STAR,FLICK,STAGE,STABLE,CLEAN,FAT 
DATA WINDOW,WHEEL,WONDER,YOUNG,YOUR,YOUTH,ZOO,CAN,YELLOW 


For explanation of graphics codes used, see next page. 
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EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1020 

SHIFT + 

J 





Line 

10020 

CTRL + 

INV 

+ TEXT: NEW 

TOP SCORE 


Line 

30010 

SHIFT + 

A» 

then SHIFT + 

Y* s, 

then 

SHIFT + 

Line 

30020 

SHIFT + 

D, 

then SHIFT + 

T's, 

then 

SHIFT + 

Line 

30040 

SHIFT + 

I 





Line 

30050 

SHIFT + 

U 





Line 

30070 

SHIFT + 

S 





Line 

31030 

CTRL + 

INV 

+ TEXT: WORD 

RACE 



Line 

32110 

SHIFT + 

U 
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What’s My Number 


Using this program, the VZ-200 will think of a number and your 
job is to try and guess what the number is. The computer will 
then inform as to whether your guess is "TOO HIGH" or "TOO LOW". 
You will also be given the opportunity set the upper limit for 
the number to be guessed. How many tries will YOU take to get it 
right? 


FOR THE PROGRAMMER 


This type of program is an excellent 'learning' program for the 
beginner and is the type of program that you can write for 
yourself. The program has deliberately been kept simple and we 
would encourage you to improve the program. 

Note how line 3065 checks to see if the computer should print 
"GUESS" or "GUESSES". 


10 REM * WHAT'S MY NUMBER? * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

40 Q$ = CHR$(34) 

50 COLOR 8,0 

1000 REM INSTRUCTIONS 

1010 CLS 

1020 PR I NTS 3 9 , " ..... " 

>1030 PR INTI271 .■ " 4SISI»«CmiflmtlJSlsla|tiBP " 

>1040 PR I HIS 103.. " w— i — >i n« i —— — » 

1050 PRINT0161,"I WILL THINK OF A NUMBER AND" 

1060 PRINT" YOU HAVE TO TRY TO GUESS IT." 

1070 PRINT 

1080 PRINT" I WILL SAY IF YOUR GUESS IS" 

1090 PRINT 

1100 PRINT" ";Q$;"TOO LOW";Q$;" OR ";Q$;"TOO HIGH";Q$;"." 
1110 PRINT 

1120 PRINT" WHAT IS MY UPPER LIMIT"; 

1130 INPUT R 

1140 IF R = 0 THEN R = 100 
1150 X = RND(R) '(SELECT NUMBER) 

2000 REM INPUT GUESSES 
2010 CLS 
2020 PRINT 

2030 PRINT" I AM THINKING OF A NUMBER" 

2040 PRINT" BETWEEN 1 AND";R 
2050 GN = GN + 1 
2060 PRINT 

2070 PRINTTAB(1)"GUESS #";GN; 

2080 INPUT G 
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2100 

'2110 

2120 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3065 

3070 

3080 

3100 

3110 

3120 

3130 

140 

3150 

3160 

3170 

4000 

4010 

4020 

4030 

5000 

5010 

5020 

5030 


IF G = X THEN 3000 
IF C < X THEN 4000 
IF G > X THEN 5000 
REM GUESS CORRECT 
CLS 

PRINTG39," .—- " 

PRINTG71, " " 

PRINTS103," . " 

PRINT0160,G;"IS MY NUMBER AND IT ONLY" 

PRINT0193,"TOOK YOU";GN;"GUESS"; 

IF GN = 1 THEN PRINT"!!" ELSE PRINT"ES!" 

PRINT:PRINT 
PRINT" RANGE: 1 -";R 
FOR N = 1 TO 10 
SOUND RND(30) ,1 
NEXT 

PRINTG385, " ■ .. « .■ ■ ■ ■ — " 

PRINTG417, " " 

PRINTG449, " . . . . '■ » ■ » — ■ " 

1$ = INKEY$:IF 1$ <> " " THEN 3140 
RUN 

REM GUESS TOO LOW 
PRINT" IfTOMNSr 
SOUND 1,3 
GOTO 2050 

REM GUESS TOO HIGH 

print" hcomsiccisr 

SOUND 30,3 
GOTO 2050 



EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1020 

SHIFT + A, 

then SHIFT + 

Y ’ s. 

then 

SHIFT 

+ 

S 

Line 

1030 

CTRL + INV 

+ TEXT: 

WHAT 

’ S MY 

NUMBER ? 



Line 

1040 

SHIFT + D, 

then SHIFT + 

T ’ S, 

then 

SHIFT 

+ 

F 

Line 

3020 

SHIFT + A, 

then SHIFT + 

Y ’ S, 

then 

SHIFT 

+ 

S 

Line 

3030 

CTRL + INV 

+ TEXT: 

CONGRATULATIONS 

i 



Line 

3040 

SHIFT + D, 

THEN SHIFT + 

T’S, 

THEN 

SHIFT 

+ 

F 

Line 

3130 

SHIFT + A, 

then SHIFT + 

Y’s. 

then 

SHIFT 

+ 

S 

Line 

3140 

CTRL + INV 

+ TEXT: 

PRESS (SPACE) FOR NEW GAME 

Line 

3150 

SHIFT + D, 

then SHIFT + 

T’ S, 

then 

SHIFT 

+ 

F 

Line 

4010 

CTRL + INV 

+ TEXT: 

TOO 

LOW! 





Line 

5010 

CTRL + INV 

+ TEXT: 

TOO 

HIGH ! 
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What’s My Letter 


If you think that this program is very similar to the preceeding 
one, you're quite correct. The difference here is that this time 
you have to guess a letter from the alphabet rather than a 
letter. 


FOR THE PROGRAMMER 


This is a good example of how to 'adapt' an existing program 
rather than starting completely from scratch to produce a 'new' 
version of the program. We suggest that you compare the previous 
program in order to determine where the changes have been made 
and see how easily this program has been adapted. 


10 REM * WHAT'S MY LETTER? * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

40 Q$ = CHR$ (34) 

50 COLOR 8,0 

1000 REM INSTRUCTIONS 

1010 CLS 

>1020 PRIHTG39, " . ■ — ■■■■ . ■ . . . . . " 

1030 PR I NTS? 1 11 igiSKltttWSIMMaiaialE** 11 

>1040 PR I NTS 103," . .. . " 

1050 PRINT0162,"I WILL THINK OF A LETTER AND" 

1060 PRINT0194,"YOU HAVE TO TRY TO GUESS IT." 

1070 PRINT 

1080 PRINT" I WILL SAY IF YOUR GUESS IS" 

1090 PRINT 

1100 print" ";Q$;"TOO LOW ";Q$;" OR ";Q$;"TOO HIGH";Q$;"." 
1110 PRINT 

1120 PRINT" ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

1130 pr I NT(2451, " » 

1135 K$ = INKEY$ 

1140 1$ = INKEY$:IF 1$ <> " " THEN 1140 
1150 X = RND(26) + 64 '(SELECT LETTER) 

2000 REM INPUT GUESSES 
2010 CLS 
2020 PRINT 

2030 PRINT" I AM THINKING OF A LETTER" 

2040 PRINT" BETWEEN A AND Z" 

2050 GN = GN + 1 
2060 PRINT 

2070 PRINTTAB(1)"GUESS #";GN; 

2080 INPUT G$ 

2085 IF G$ < "A" OR G$ > "Z" THEN 2080 
2090 G = ASC(G$) 
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2100 

2110 

2120 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3065 

3070 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

4000 

4010 

4020 

4030 

5000 

5010 

5020 

5030 


IF G = X THEN 3000 
IF G < X THEN 4000 
IF G > X THEN 5000 
REM GUESS CORRECT 
CLS 

PRINTS39, " .—— . .— " 

pr i NTs? i," " 

PRINTS103," . . . " 

PRINT@161,Q$;CHR$ (G) ;Q$;" IS MY LETTER AND IT ONLY" 
PRINT0193,"TOOK YOU";GN;"GUESS"; 

IF GN = 1 THEN PRINT"!!" ELSE PRINT"ES!" 

PRINT:PRINT 
FOR N = 1 TO 10 
SOUND RND(30) , 1 
NEXT 


PR INTS385, " ■ ■ — — ■ ■■ . . .— . " 

PR INTS417, " 11 


PRINTG449, " ... 

1$ = INKEY$:IF 1$ <> 

RUN 

REM GUESS TOO LOW 

print" MMMMngr 

SOUND 1,3 
GOTO 2050 

REM GUESS TOO HIGH 

PRINT" IOMHSICRi:i" 

SOUND 30,3 
GOTO 2050 


THEN 3140 



EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1020 

SHIFT + A, 

then SHIFT + 

Y's, 

then 

SHIFT 

+ 

s 

Line 

1030 

CTRL + INV 

+ TEXT: WHAT' 

S MY 

LETTER ? 



Line 

1040 

SHIFT + D, 

then SHIFT + 

T' 

then 

SHIFT 

+ 

F 

Line 

1130 

CTRL + INV 

+ TEXT: PRESS 

(SPACE) 

TO BEGIN 


Line 

3020 

SHIFT + A, 

then SHIFT + 

Y’s, 

then 

SHIFT 

+ 

s 

Line 

3030 

CTRL + INV 

+ TEXT: CONGRATULATIONS ! 



Line 

3040 

SHIFT + D, 

then SHIFT + 

T ’ s, 

then 

SHIFT 

+ 

F 

Line 

3130 

SHIFT + A, 

then SHIFT + 

Y’s, 

then 

SHIFT 

+ 

S 

Line 

3140 

CTRL + INV 

+ TEXT: PRESS 

(SPACE) 

FOR NEW GAME 

Line 

3150 

SHIFT + D, 

then SHIFT + 

T’ S, 

then 

SHIFT 

+ 

F 

Line 

4010 

CTRL + INV 

+ TEXT: TOO LOW ! 





Line 

5010 

CTRL + INV 

+ TEXT: TOO HIGH 

i 
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VZ-200 Maths Quiz 


This program lets you practice your maths skills. You are given 
a choice of addition, subtraction, multiplication, division or a 
mixture of these at any of three levels of difficulty. When you 
decide to quit, you will be presented with a complete report. By 
the way, your VZ-200 makes random comments after each effort. It 
can in fact be quite rude! 


FOR THE PROGRAMMER 


Note the interesting method used in line 160 to select the 
required choice from the menu. Note also how each section of the 
program is separated by REM statements from line 1000 to allow 
you easy access to follow the logic. 


10 REM * VZ-200 MATHS QUIZ * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

40 CLS 

50 CLEAR 200 


60 FOR N = 1 TO 
70 FOR N = 1 TO 
100 GOSUB 20000 





10:READ C$(N):NEXT 
10:READ W$(N):NEXT 
'(DRAW FRAME) 


(READ 

(READ 


CORRECT WORDS) 
WRONG WORDS) 


110 

120 

130 

140 

145 

150 

155 

160 

170 

175 

180 

190 

200 

205 

210 

220 

250 

260 

270 

280 

500 

510 

520 

530 

540 

550 


ADDITION"; 

SUBTRACTION"; 

MULTIPLICATION"; 

DIVISION"; 

MIXED"; 

TYPE OF MATHS 


(1-5) 


PRINT0194,"1 
PRINT0226,"2 
PRINT0258,"3 
PRINT0290,"4 
PRINT@322,"5 
PRINT0386,"WHICH 
SOUND 30,1 

INPUT T$ = T$ * LEFT*<T*; 1 >' IF T* • "I” THEN 150 
IF T$ < "1" OR T$ > "5" THEN PRINT0413 
SOUND 30,1:GOSUB 500 
PRINT0418,"WHICH LEVEL (1-3)"; 

INPUT L$ = L$ = LEFT*<L$,1>«IF L$ = "I" 

IF L$ < "1" OR L$ > "3" THENPRINT0437, 

SOUND 30,1 
L = VAL(L$) 

GOSUB 21000 

PRiNTese, "mwimm 

COLOR 7 
PRINTG421 
GOTO 1000 


:GOTO 150 


THEN 

II 


180 


:GOTO 180 


(CLEAR SCREEN) 


TS*; 


Donatae 


■ISiliHgMMMIHIMRiailai 


IF 

IF 

IF 

IF 

IF 


T$ 

T$ 

T$ 

T$ 

T$ 


"1" THEN TS$ = "ADD.":TL$ = "ADDITION" 

"2" THEN TS$ = "SUB.":TL$ = "SUBTRACTION" 

"3" THEN TS$ = "MULT.":TL$ = "MULTIPLICATION" 
"4" THEN TS$ = "DIV.":TL$ = "DIVISION" 

"5" THEN TS$ = "MIXED":TL$ = "MIXED" 


RETURN 
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1000 

1010 

1020 

1025 

1030 

1040 

1050 

1060 

1070 

1100 

1110 

1120 

1130 

1140 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1300 

1310 

1320 

1330 

1340 

1500 

1510 

1540 

1550 

1560 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 


4030 

4040 

4050 

5000 

5010 


REM PRESENT QUESTION 
PRINT0257," 

K = K + 1 '(QUESTION COUNTER) 

PRINT091,;:PRINTUSING"###";K 

IF T$ = "5" THEN T = RND(4) ELSE T = VAL(T$) 

IF T = 1 THEN GOSUB 2000 

IF T = 2 THEN GOSUB 3000 

IF T = 3 THEN GOSUB 4000 

IF T = 4 THEN GOSUB 5000 

PRINT@257 / A;S$;B;"= 

INPUT X$:IF LEFT$ (X$,1) = "Q" THEN 6000' (CODA) 
X = VAL(X$) 

IF X = C THEN GOSUB 1200 ELSE GOSUB 1300 
GOTO 1010 

REM ANSWER CORRECT 

CT = CT + 1 '(CORRECT ANSWER COUNTER) 

PRINTG275.' RNtX 10 > >i "M" j 
GOSUB 1500 
FOR N = 1 TO 4 

SOUND RND(10) + 20,1 


NEXT 

RETURN 

REM ANSWER WRONG 

PR IMTG275 .• RH0( 10 > >; "II" J 


GOSUB 1500 
SOUND 1,7 
RETURN 

REM PRINT STATISTICS 


PRIHTG66, "WaWSW "; " < "; TS*j " > 




PR I NIG 130, "dMaamifl 
PRINTUSING"###%";CT/K 
RETURN 

REM ADDITION 
S$ = "+" 

IF L = 1 THEN A 
IF L = 2 THEN A 
IF L = 3 THEN A 
C = A + B:RETURN 
REM SUBTRACTION 
S$ = 

IF L = 1 THEN C 
IF L = 2 THEN C 
IF L = 3 THEN C 
A = C + B:RETURN 
REM MULTIPLICATION 
S $ = "X" 

IF L = 1 THEN A = RND 

IF L = 2 THEN A = RND 

IF L = 3 THEN A = RND 

C = A * B: RETURN 
REM DIVISION 
S$ = "/" 


RND 

RND 

RND 


RND 

RND 

RND 


'100 


(10) :B 
( 10 ) + 
(60) + 


(10) :B 
( 10 ) + 
(60) + 


(10) :B 
(10) :B 
(30) + 


= RND (10) 

40:B = RND(20) 

60:B = RND(60) + 60 


= RND (10) 

40:B = RND(20) 

60:B = RND(60) + 60 


= RND (10) 

= RND(30) + 10 
20:B = RND (50) + 50 
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5020 IF L = 1 THEN C = RND(10):B = RND(10) 

5030 IF L = 2 THEN C = RND(10):B = RND(10) + 10 

5040 IF L = 3 THEN C = RND(30) + 20:B = RND(30) + 20 

5050 A = C * B:RETURN 
6000 REM RESULTS 

6010 GOSUB 21000’ (CLEAR SCREEN) 

6015 K = K - 1 _____ 

6020 PRINTS66.- "■■■■■■IMSdEr .• TL$; 

6030 PR I NTS 130.. "(MIMOl8MMBT' •• 

6035 PRINTUSING"###" ;K 

6040 pr i nts 194.. ''iiwMmaaxmm 1 ', 

6045 PRINTUSING"# ##";CT 

6050 PR INTS258 .• 

6055 PRINTUSING"### "; K-CT 
6060 PR INTS322 .• "laairWalSiKIHail" ^ 

6062 IF K < 1 THEN PRINTUSING"###%";0:GOTO 6070 
6065 PRINTUSING"###%";CT/K*100 

6070 pr i nts418," " - ! 

6075 SOUND 16,1:SOUND 20,1:SOUND 23,l:SOUND 28,1 
6080 1$ = INKEY$:IF 1$ <> " " THEN 6080 
6090 RUN 

20000 REM DRAW FRAME 
20010 COLOR 8,0 

20020 PR IHTS0 .• " ..■■■...■ ■■■ ...... ■ ■■■■'' 

20030 'PRINT®480.- " "". . . . .* . .. . . — . . . . 

20040 FOR N = 32 TO 448 STEP 32 
20050 PRINTSN.. " 

20060 pRINTSN+31.. "I ".i 
20070 NEXT 
20080 PRINTS31 .• "■ " ,i 
20090 POKE 29183,248 
20110 COLOR 7 

20120 PR I NTS? 1, 11 " > 

20130 T$ = "(BY WAYNE G. RICHMOND)" 

20140 FOR N = 1 TO LEN(T$) 

20150 PRINT0133,RIGHT$ (T$,N); 

20160 NEXT 
20170 RETURN 

21000 FOR N = 33 TO 448 STEP 32 
21010 PRINT0N," 

21020 NEXT 
21030 RETURN 

30000 data "^aaiawsr, iiMaian 1 ', "lasrajwifl", , "isiisikw 11 

30010 data "isreisKisiawiMsr, "isiuamamisr, "Maarsn", '’isniisiiBiciaiH", "iswisr 

30020 DATA "MftMBrKlar , [tfUUOBIOT, "ISWWrsiN" , "ISIeWISW" , "liNlMESCHSItf" 

30030 data "isiufiifiiana", "isinsiscaaw, "MdsflMaar, , "isiaraarmifiia] 


For exp)anation of graphics codes used, see next page 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

160 

SHIFT 

+ 

U 





Line 

190 

SHIFT 

+ 

U 





Line 

250 

CTRL 

+ 

INV 

+ 

TEXT: 

LEVEL: QUEST: 


Line 

270 

CTRL 

+ 

INV 

+ 

TEXT: 

(ANSWER "Q" TO QUIT) 

Line 

1220 

CTRL 

+ 

INV 

+ 

TEXT: 

i 


Line 

1310 

CTRL 

+ 

INV 

+ 

TEXT: 

i 


Line 

1510 

CTRL 

+ 

INV 

+ 

TEXT: 

LEVEL: QUEST: 


Line 

1540 

CTRL 

+ 

INV 

+ 

TEXT: 

CORRECT: 


Line 

6020 

CTRL 

+ 

INV 

+ 

TEXT: 

TYPE: 


Line 

6030 

CTRL 

+ 

INV 

+ 

TEXT: 

# ATTEMPTS: 


Line 

6040 

CTRL 

+ 

INV 

+ 

TEXT: 

# CORRECT: 


Line 

6050 

CTRL 

+ 

INV 

+ 

TEXT: 

# WRONG: 


Line 

6060 

CTRL 

+ 

INV 

+ 

TEXT: 

PERCENTAGE: 


Line 

6070 

CTRL 

+ 

INV 

+ 

TEXT: 

PRESS (SPACE) FOR 

NEW QUIZ 

Line 

20020 

SHIFT 

+ 

A, 

then SHIFT + Y's, then SHIFT + S 

Line 

20030 

SHIFT 

+ 

D, 

then SHIFT + T's, then SHIFT + F 

Line 

20050 

SHIFT 

+ 

I 





Line 

20060 

SHIFT 

+ 

U 





Line 

20080 

SHIFT 

+ 

s 





Line 

20120 

CTRL 

+ 

INV 

+ 

TEXT: 

VZ-200 MATHS QUIZ 


Line 

30000 

CTRL 

+ 

INV 

+ 

TEXT: 

SPOT ON, TERRIFIC, 
FANTASTIC, BINGO 

BEAUTY, 

Line 

30010 

CTRL 

+ 

INV 

+ 

TEXT: 

MARVELLOUS, BULLS 
WONDERFUL, WOW 

EYE, GREAT, 

Line 

30020 

CTRL 

+ 

INV 

+ 

TEXT: 

TOO BAD, GOOD TRY, 
WRONG, NOT RIGHT 

NO WAY, 

Line 

30030 

CTRL 

+ 

INV 

+ 

TEXT: 

BOMBED, BOMB OUT, 

OFF OFF, 


FIZZER, NEVER MIND 
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VZ-200 Music Box 


In this program, your VZ-200 indulges in a little nationalistic 
nostalgia. It will with great dexterity and skill, play 4 of 
Australia's best known tunes: 

The Pub With No Beer 

Advance Australia Fair 

Botany Bay 

Tie Me Kangaroo Down. 


FOR THE PROGRAMMER 


Because this program 'plays' four different tunes, each of the 
required sets of DATA statements has been separated and is 
treated individualy once selected from the menu. This has been 
done to allow you to see how each tune has been derived. Note 
the DIM statements in lines 100-130 which sets the size 
(number) of DATA statements used for each tune. Note also the 
simple way in which each tune is played by using a FOR...NEXT 
loop such as in lines 1010-1070. 


10 REM * VZ-200 MUSIC BOX * 
20 REM WRITTEN BY WAYNE C. 
30 REM (MAY 1983) 

100 DIM AP (47) ,AD (47) 

110 DIM BP(70),BD(70) 

120 DIM CP (41) ,CD(41) 

130 DIM DP (33) ,DD (33) 

140 GOTO 600 

200 REM READ DATA 

205 PRINT0418,"PLEASE WAIT 

210 FOR N = 1 TO 47 

220 READ AP(N):READ AD(N) 

230 NEXT 

240 FOR N = 1 TO 70 

250 READ BP(N):READ BD(N) 

260 NEXT 

270 FOR N = 1 TO 41 

280 READ CP (N):READ CD(N) 

290 NEXT 

300 FOR N = 1 TO 33 

310 READ DP (N): READ DD (N) 

320 NEXT 

330 SOUND 30,1 

340 RETURN 


RICHMOND 
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tte 











600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

755 

760 

770 

780 

790 

800 

805 

810 

820 

830 

840 

850 

860 

870 

880 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 


REM MENU 
CLS 

COLOR 8,0 

PRINTS©.* 11 ■ i in...in i n 

PRINTS480, " . 1 1 

FOR N = 32 TO 448 STEP 32 


PRIHTSH, " 
PRINTSN+31, "I " i 
NEXT 


PRINTS31, "■ "i 


POKE 29183,248 
COLOR 7 

pr i NTs? i," vjae*siswLa£9COT:xra« 
T$ = "(BY WAYNE G. RICHMOND)" 
FOR N = 1 TO LEN(T$) 

PRINT0133,RIGHT$(T$,N); 
F0RX=1T04:NEXT 
NEXT 


PRINT@226,"1. 

PRINT@258,"2. 

PRINT0290,"3. 

PRINT@322,"4. 

GOSUB 200 

PRINT0418,"TYPE 1, 

K$ = INKEY$ 

1$ = INKEY$:IF 1$ = "" THEN 830 


PUB WITH NO BEER"; 
ADVANCE AUSTRALIA FAIR"; 
BOTANY BAY"; 

TIE ME KANGAROO DOWN"; 


2,3 OR 


IF 1$ = 
IF 


II II 

ii 2 H 
ti ^ ii 
"4 » 


i$ = 

IF 1$ = 

IF 1$ = 

GOTO 830 

REM PUB WITH NO BEER 


THEN 1000 
THEN 2000 
THEN 3000 
THEN 4000 


PR INT8418, " aiSMailSHSmMiMHsmSW "} 

FOR R = 1 TO 2 
FOR N = 1 TO 47 
SOUND AP(N),AD(N) 

NEXT N — 

SOUND 0,1 
NEXT R 
GOTO 810 

REM ADVANCE AUSTRALIA FAIR 

PR INTS418," " 

FOR N = 1 TO 70 
SOUND BP(N),BD(N) 

NEXT N 

GOTO 810 

REM BOTANY BAY 

pr i nts 4 is," laaraeinsreiM 11 > 

FOR R = 1 TO 2 
FOR N = 1 TO 41 
SOUND CP(N),CD(N) 

NEXT N 
SOUND 0,1 
NEXT R 
GOTO 810 
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4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

30000 

30010 

30020 

30030 

30040 

40000 

40010 

40020 

40030 

40040 

40050 

40060 


REM TIE ME KANGAROO DOWN 

PR I NTS418, 11 «*H4HSia«iSR1i[ifSlElalanMlM]giSII" 

FOR N = 1 TO 32 

SOUND DP(N),DD(N) 

NEXT N 

FOR N = 1 TO 26 
SOUND DP(N),DD(N) 

NEXT N 

SOUND DP (33) ,DD (33) 

GOTO 810 

REM DATA FOR "PUB WITH NO BEER" 

DATA 18,2,18,4,17,4,20,4,18,4,13,5,10,2,8,4,7,4,8,4 
DATA 15,6,15,2,15,2,13,4,17,4,15,4,13,6 
DATA 8,2,8,2,8,4,10,4,11,4,10,6 

DATA 18,2,18,2,18,4,17,4,20,4,18,4,13,5,10,2,8,4,7,4,8,4 
DATA 15,6,15,2,15,2,13,4,17,4,15,4,13,6 
DATA 8,2,10,2,11,4,10,4,8,4,6,6 
REM DATA FOR "ADVANCE AUSTRALIA FAIR" 

DATA 11,4,16,4,11,4,8,4,11,4,16,5,16,2,16,4 

DATA 20,4,18,4,16,4,15,4,16,4,18,8 

DATA 11,4,16,4,11,4,8,4,4,4,11,5,11,2,11,4 

DATA 20,4,18,4,16,4,15,4,13,4,11,8 

DATA 11,4,13,5,15,2,16,4,13,4,11,5,8,2,8,4 

DATA 11,4,13,4,16,4,21,4,20,4,18,8 

DATA 11,4,13,5,15,2,16,4,13,4,11,5,16,2,16,4,18,4 

DATA 20,5,16,2,18,5,15,2,16,8 

DATA 20,4,21,4,20,4,18,4,16,4,15,4,13,4,11,4 

DATA 16,4,20,5,16,2,18,5,15,2,16,8 

REM DATA FOR "BOTANY BAY" 

DATA 7,1,9,1,11,2,14,2,14,2,9,2,12,2,12,2,11,1,9,1,7,5,0,1 
DATA 14,2,11,2,14,2,19,2,12,2,16,2,19,2,14,6,0,1 
DATA 14,2,19,2,18,2,19,2,21,2,19,2,16,2,14,1,11,1,7,5,0,1 
DATA 7,1,9,1,11,2,14,2,14,2,9,2,12,2,11,2,7,6 
REM DATA FOR "TIE ME KANGAROO DOWN" 

DATA 4,4,9,2,13,4,11,2,9,4,6,6,11,6 
DATA 4,4,8,2,11,4,14,2,18,4,16,8,0,1 
DATA 13,4,16,2,13,4,11,2,9,4,6,6,11,6 
DATA 4,4,8,2,11,4,9,2,8,4,9,4 
DATA 16,2,16,1,16,2,16,1,16,4 
DATA 9,7 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 630 
Line 640 
Line 660 
Line 670 
Line 690 
Line 720 
Line 1010 
Line 2010 
Line 3010 
Line 4010 


SHIFT + A, then SHIFT + Y's, then SHIFT + S 
SHIFT + D, then SHIFT + T's, then SHIFT + F 
SHIFT + I 
SHIFT + U 
SHIFT + S 

CTRL + INV + TEXT: VZ-200 MUSIC BOX 

CTRL + INV + TEXT: THE PUB WITH NO BEER 

CTRL + INV + TEXT: ADVANCE AUSTRALIA FAIR 
CTRL + INV + TEXT: BOTANY BAY 

CTRL + INV + TEXT: TIE ME KANGAROO DOWN 
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VZ-200 Clock 


This program turns your VZ-200 into a digital timepiece. In 
order to maintain the accuracy of the program, we suggest that 
you key in the program EXACTLY as it is - spaces, REM's and all! 


FOR THE PROGRAMMER 


The loop in line 3030 is used simply to act as a delay to adjust 
the clock's timekeeping accuracy. Adjustment of the period of 
delay can be made by altering the value (by either increasing or 
decreasing the value) of TW in line 80. Another method used to 
'slow things' down would be to add REM statements between lines 
3010 and 3060. You'd be surprised to learn just how much time 
they can take up in a program. 

Note also the testing done from line 7000 to ensure that the 
time figures that have been entered, are valid. 




10 REM * VZ-200 CLOCK * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

50 CLS 

60 GOSUB 6000 ' (DRAW SCREEN FRAME) 
70 COLOR 1,1 

80 TW = 742 '(SET TIME WASTER) 

1000 REM DRAW CLOCK FRAME 

1010 PR I HTi5169 .■ " ■ ... — 

1020 FOR N = 200 TO 264 STEP 32 
1030 PRINTlSH, "■ ■ ■ 

1040 NEXT 

1050 PR IHTS296 .• ....»»»■■—" j 

2000 REM INITIALISE TIME 
2010 PR I NTS 108," Vi BOttslsV "; 

2020 PRINHS354, "E3aMDIKftM3l9 
2030 PR INTI236S, "ISWUJSH"; 

2040 INPUT H$ 


TICK 

TICK 

W 


"ISMMse' 


2050 X$ = H$:GOSUB 7000' (CHECK VALIDITY) 


2060 IF X$ = "" THEN 2030 
2070 H = VAL(H$) 

2080 PRINT@234,;:PRINTUSING;H 
2090 PRINTG366, "IB*«!l«JH=0" i 
2100 INPUT M$ 

2110 X$ = M$:GOSUB 8000' (CHECK VALIDITY! 
2120 IF X$ = "" THEN 2090 
2130 PRINT0375," 

2140 M = VAL(M$) 


25 





2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

3000 

3010 

3030 

3060 

3070 

4000 

4010 

4020 

4030 

4040 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

5000 

5010 

5015 

5020 

5025 

5030 

5040 

6000 

6010 

6020 

■6030 

6040 

6050 

6060 

6070 

■6080 

6090 

6100 


IF M < 10 THEN F$ = "0#" ELSE F$ = "##" 
PRINT0239,;:PRINTUSING F$;M 
PRINTS366, "MsWniMBn 
INPUT S$ 

X$ = S$:GOSUB 8000' (CHECK VALIDITY) 

IF X$ = "" THEN 2170 
S = VAL(S$) 

IF S < 10 THEN F$ = "0#" ELSE F$ = "##" 
PRINT0244,; :PRINTUSING F$;S 
PRINT0354," 

PRINTCS419, 11 
K$ = INKEY $ 

1$ = INKEY $:IF 1$ <> " " THEN 2270 
PRINT@419," 

GOTO 3030 

REM TIMING ROUTINE 
GOSUB 4000' (PRINT TIME) 

FOR N = 1 TO TWtNEXT 
GOSUB 5000' (ADJUST TIME) 

GOTO 3010 
REM PRINT TIME 
PRINT0234,; 

IF M < 10 AND S < 10 THEN 4160 
IF M < 10 THEN 4140 
IF S < 10 THEN 4120 
PRINTUSING"## ■##■## 

RETURN 

PRINTUSING"## ■ ## ■ 0# ■" .1H; MJ 3 

RETURN 

PRINTUSING"## ■ 0# ■ ## ■" H; M.i S 
RETURN 

PRINTUSING"## ■ 0# ■ 0# 

RETURN 

REM UPDATE TIME 

S = S + 1:IF S < 60 THEN RETURN 
S = 0 

M = M + 1:IF M < 60 THEN RETURN 
M = 0 

H = H + 1:IF H < 13 THEN RETURN 
H = 1:RETURN 
REM DRAW SCREEN FRAME 
COLOR 5,1 

PRINTS©, " .— " i —.—— 

PRINTS480, " -———————— 

FOR N = 32 TO 448 STEP 32 
PRINTSN, " l".i 
PRINTSN+31, "■ ".i 
NEXT 

PRINTS31, "■ ".i 
POKE 29183,200 
RETURN 
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EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 1010 SHIFT + Y's 

Line 1030 SHIFT + J's 

Line 1050 SHIFT + T'S 

Line 2010 CTRL + INV + TEXT: VZ-200 

Line 2020 CTRL + INV + TEXT: SET CLOCK: 

Line 2030 CTRL + INV + TEXT: HOUR: 

Line 2090 CTRL + INV + TEXT: MINUTE: 

Line 2170 CTRL + INV + TEXT: SECOND: 

Line 2250 CTRL + INV + TEXT: PRESS (SPACE) TO START 

Line 4100 SHIFT + J's 

Line 4120 SHIFT + J's 

Line 4140 SHIFT + J's 

Line 4160 SHIFT + J's 

Line 6020 SHIFT + Y's 

Line 6030 SHIFT + T's 

Line 6050 SHIFT + I 

Line 6060 SHIFT + U 

Line 6080 SHIFT + S 

Line 7030 SHIFT + U 

Line 8030 SHIFT + U 
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What Day Of The Week Is It 


This neat little program will calculate which day of the week it 
is (or will be) for virtually any date within this century. What 
day of the week were you born on? 

It is very important to ensure that the date is entered 
correctly, i.e. DD/MM/YY. (e.g. 12/08/47 for 12th August, 1947). 
To reiterate, two digits are required for each section of the 
date. 


FOR THE PROGRAMMER 


Note the manipulation of string data (the date in this case) in 
lines 1160-1260 used to extract the day, month and year from the 
INPUTed string DD/MM/YY using the string functions LEFT?, 

RIGHT?, MID$ and VAL. 


10 REM * WHAT DAY OF THE WEEK IS IT?* 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

40 COLOR ,0 

1000 REM INPUT DATE 

1010 CLS 

1020 GOSUB 10000 '(DRAW FRAME) 

1030 COLOR 7 

1040 PR I NTS69, " «SISmM«OT«IOT«:is«iaaiS«a " j 

1050 T$="(BY WAYNE G. RICHMOND)" 

1060 FOR N = 1 TO LEN(T$) 

1070 PRINT0133,RIGHT?(T?,N) ; 

1080 NEXT 

1090 PRINT0194,"THIS PROGRAM CAN CALCULATE"; 

1100 PRINT0226,"WHAT DAY OF THE WEEK ANY"; 

1110 PRINT0258,"PAST OR FUTURE DATE FALLS ON!"; 

1120 PRINT®322,"TYPE IN THE DATE (DD/MM/YY)"; 

1130 PRINT0354,"E.G. 07/05/83 (7TH MAY 1983)"; 

1140 PRINT@418,; 

1150 INPUT T$ 

1155 IF ASC(T?) = 138 THEN 1000 
1160 T$ = LEFT$(T$,8) 

1200 Y = VAL(RIGHT$ (T?,2)) 

1210 M = VAL(MID?(T$,4,2)) 

1220 IF M > 12 THEN 1000 
1230 D = VAL(LEFT$(T$,2)) 

1240 IF D > 31 THEN 1000 

1250 IF MID?(T$,3,1) > "/" THEN 1000 

1260 IF MID$(T$,6,1) > "/" THEN 1000 

1550 IF INT(Y/4) = Y/4 THEN 3000 '(CHECK FOR LEAP YEAR) 




2000 

REM CALCULATE KEY 


NUMBER FOR 

2010 

IF M 

= 1 THEN K = 


1 

2020 

IF M 

= 2 THEN K = 


4 

2030 

GOTO 

3030 



3000 

REM CALCULATE KEY 


NUMBER FOR 

3010 

IF M 

= 1 THEN K 

= 

0 

3-020 

IF M 

= 2 THEN K 

= 

3 

3030 

IF M 

= 3 THEN K 

= 

4 

3040 

IF M 

= 4 THEN K 

= 

0 

3050 

IF M 

= 5 THEN K 

= 

2 

3060 

IF M 

= 6 THEN K 

= 

5 

3070 

IF M 

= 7 THEN K 

= 

0 

3080 

IF M 

= 8 THEN K 

= 

3 

3090 

IF M 

= 9 THEN K 

= 

6 

3100 

IF M 

= 10 THEN K 

= 

1 

3110 

IF M 

= 11 THEN K 

= 

4 

3120 

IF M 

= 12 THEN K 

= 

6 

4000 

REM CALCULATE DAY 


OF WEEK 

4010 

B = INT(Y/4) 



4020 

X = Y 

+ B + K + D 



4030 

S = INT(X/7) 



4040 

H = X 

- (S * 7) 



4050 

IF H 

= 0 THEN D$ 

= 

"SATURDAY" 

4060 

IF H 

= 1 THEN D$ 

= 

"SUNDAY" 

4070 

IF H 

= 2 THEN D$ 

= 

"MONDAY" 

4080 

IF H 

= 3 THEN D$ 

= 

"TUESDAY" 

4090 

IF H 

= 4 THEN D$ 

= 

"WEDNESDAY 

4100 

IF H 

= 5 THEN D$ 

= 

"THURSDAY" 

4110 

IF H 

= 6 THEN D$ 

= 

"FRIDAY" 

4120 

PRINT0418,T$;" IS 


ON A ";D$;" 

4125 

SOUND 

15,1 



4130 

K$ = 

INKEY$ 



4140 

PRINT0131," (HIT 

«SPACE>> TO 

4150 

SOUND 

30,1 



4160 

FOR N 

= 1 TO 80 



4170 

1$ = 

INKEY $:IF 1$ 

= " " THEN 

4180 

NEXT 




4190 

PRINT0132," 



4200 

FOR N 

= 1 TO 20 



4210 

1$ = 

INKEY$:IF 1$ 

= " " THEN 

4220 

NEXT 




4230 

GOTO 

4140 



1000G 

1 REM 

DRAW FRAME 



10010 

1 COLOR 8 





II • 
f 


For explanation of graphics codes used, see next page. 
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10040 FOR N = 32 TO 448 STEP 32 
10050 PRINTGN, " I" > 

10060 PRINTSN+31 .• "■ " 

10070 NEXT 
-1008 0 PRINTQ31"■ " i 
10090 POKE 29183,248 
10100 RETURN 

10250 IF INT(Y/4) = Y/4 THEN 12000 '(CHECK FOR LEAP YEAR) 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1040 

CTRL + 

INV 

+ TEXT: WHAT 

DAY OF THE WEEK 

Line 

10020 

SHIFT + 

A, 

then SHIFT + 

Y's 

Line 

10030 

SHIFT + 

D, 

then SHIFT + 

T's 

Line 

10050 

SHIFT + 

I 



Line 

10060 

SHIFT + 

U 



Line 

10080 

SHIFT + 

S 




? 
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Crystal Spectacular 


Here, we have allowed the VZ-200 to show its artistic side in 
this stunningly beautiful program. Random rectangular patterns 
are drawn all over the screen producing a brilliant colour 
display. At any time, you can freeze the display by simply 
holding the SPACE key until you hear a low buzz. You may 
continue the program simply by hitting the RETURN key. With this 
program running, you are guaranteed to impress your wife, kids 
and friends and (at last) justify your purchase of the VZ-200. 


FOR THE PROGRAMMER 


In this program. High-resolution graphics is used by switching 
display mode at line 60. Line 300 randomly chooses the new 
locations (X and Y) and size (LT) of the next 'crystal'. 

Line 310 checks to see if the SPACE key is being held down. If 
it is, the program moves to the routine beginning at line 400 
where it is held at the INKEY$ in line 410 until it detects a 
RETURN key (ASCII 13). 


10 REM * CRYSTAL SPECTACULAR * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

40 GOSUB 1000 
50 CLS 
60 MODE (1) 

70 COLOR 8,1 
100 GOSUB 300 
110 FOR X = X TO X + I 
120 SET (X,Y) 

130 NEXT X 

140 FOR Y = Y TO Y + I 
150 SET (X,Y) 

160 NEXT Y 

170 1=1+ 1:IF I > LT THEN 100 
180 FOR X = X TO X - I STEP -1 
190 SET (X,Y) 

200 NEXT X 

210 FOR Y = Y TO Y - I STEP -1 
220 SET (X, Y) 

230 NEXT Y 

240 1=1+ 1:IF I > LT THEN 100 
250 COLOR RND(4)+4 
260 GOTO 110 
300 X=RND(67)+27:Y=26 + RND (6) :LT=RND(48)+5:1 = 0 
310 K$ = INKEY$:1$ = INKEY$:IF 1$ =" "THEN 400 ELSE RETURN 
400 SOUND 10,3 

410 1$ = INKEY$:IF 1$ = "" THEN 410 

420 IF ASC(I $) = 13 THEN SOUND 30,1:RETURN ELSE 410 
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1000 REM INTRODUCTION 
1010 CLS:MODE (0) 

1020 COLOR 8,0 

1030 PPTHT 1 ^. 11 . . --- 

1040 PRINTS480, " . . " "".... 1 

1050 FOR N = 32 TO 448 STEP 32 
1060 PRINT2N, " ■" ; 

1070 PRINTSN+31 .• "« " 

1080 NEXT 

1090 PRIWTIS31, "■ " ; 

1100 POKE 29183,248 
1105 COLOR 7 
1110 PR I NT(569 .■ " 

1120 T$ = "(BY WAYNE G. RICHMOND)" 

1130 FOR N = 1 TO LEN(T$) 

1140 PRINT0133,RIGHT$(T$,N); 

1150 NEXT 

1160 PRINT0194,"THIS PROGRAM CREATES AMAZING"; 

1170 PRINT0226,"COLOUR CRYSTALS!"; 

1180 PRINT0290,"HOLD DOWN <<SPACE>> TO PAUSE"; 

1190 PRINT0322,"PRESS <<RETURN>> TO CONTINUE"; 

1200 pr i nts 4 i 9 ," i:»«flgBsi4!iijaiiaaiC0ai!i»Mi 11 ; 

1205 K$ = INKEY $ 

1210 1$ = INKEY$:IF 1$ = "" THEN 1210 

1220 IF ASC(I$) <> 13 THEN 1210 ELSE SOUND 30,1:RETURN 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1030 

SHIFT + A, 

then SHIFT + Y's 

Line 

1040 

SHIFT + D, 

then SHIFT + T's 

Line 

1060 

SHIFT + I 


Line 

1070 

SHIFT + U 


Line 

1090 

SHIFT + S 


Line 

1110 

CTRL + INV 

+ TEXT: CRYSTAL SPECTACULAR 

Line 

1200 

CTRL + INV 

+ TEXT: HIT (RETURN) TO START 
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Write A Story 


This program creates absolutely hilarious stories! There are two 
stories in memory with a number of words left out. The computer 
will ask you to put in the missing words and the computer will 
then print the story for you. 

If you have a printer attached the program can produce a copy 
of the story for you on paper. 

One of the stories predicts the future for you and your friends 
while the other extols the virtues of "Good Health"! 

To help you in answering the questions, here is a quick cram in 
English grammar:- 

An ADJECTIVE describes something or somebody, e.g. lumpy, 
ticklish, blonde, messy etc. 

A NOUN is the name of a person, place or thing, e.g. woman, 
footpath, dog, book, umbrella etc. 

A PLURAL NOUN is a noun naming more than one person, e.g. women, 
yards etc. 

An EXCLAMATION is any sort of odd sound or outcry, e.g. gasp, 
ouch, wow, gadzooks etc. 

N.B. Try to think of unusual and/or funny words to use. Don't 
make them too long or they won't fit the screen properly. If you 
want a real good laugh, this is it! 


FOR THE PROGRAMMER 


Rather than using DATA statements as in previous programs to 
reproduce information, it was decided to use string functions 
and show you how they can be manipulated. The manipulation of 
string data is one of the many useful advantages that BASIC has 
to offer. No other language allows the freedom (of BASIC) in 
this one respect. 

As this program does a fair bit of 'jumping around' within 
itself, we suggest that you take a particular choice from the 
menu, and using a separate pad and pencil, write down the 'flow' 
of the program by following the logic as it goes both up and 
down within the program. 
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10 

20 

50 

70 

400 

430 

440 

450 

460 

500 

520 

530 

540 

550 

560 

1000 

1100 

1110 

1120 

1130 

1140 

2000 

2010 

2015 

2020 

2030 

2040 

2050 

2060 

2065 

2070 

2080 

2090 

2100 

3000 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3115 

3120 

3130 

3140 

3150 

3160 

3170 

3190 

3200 

3210 


REM ** WRITE A STORY ** 
REM BY WAYNE G. RICHMOND 
CLEAR200:Y$=CHR$(34):COLOR 
LL*« 


8,0 


GOTO1000 


CLS:PRINTLL$; 

PRINT" PLEASE PROVIDE THE REQUIRED" 
PRINT" WORD BY TYPING IT AND PRESSING" 
PRINT" THE «RETURN>> KEY." 

PRINTLL$;:RETURN 
PRINT0194,Q$ 

PRINT 
INPUT Z$ 

IFZ$=""THEN500 
PRINT0194," 

PRINT0256," 

CLS * PRINTI240 , " 


RETURN 


PRINT0162,"!, 


FUTURE PROFESSION 
GOOD HEALTH 


PRINT0258,"2. 

PRINT0418,"TYPE 1 OR 2 
I$=INKEY$:IFI$=""THEN1130 

IFI$="1"THEN2000ELSEIFI$="2"THEN5000ELSE1130 
GOSUB 400 

Q$="ADJECTIVE":GOSUB500:A$=Z$ 

Q$="NAME OF FEMALE":GOSUB500:B$=Z$ 

Q$="VERB ENDING IN "+Y$+"ING"+Y$:GOSUB500:C$=Z$ 
Q$="A PROFESSION OR JOB":GOSUB500:D$=Z$ 

Q$="A FEMALE CELEBRITY":GOSUB500:E$=Z$ 

Q$="NAME OF MALE":GOSUB500:F$=Z$ 

Q$="A MALE CELEBRITY":GOSUB500:G$=Z$ 

Q$="NAME OF PERSON":GOSUB500:H$=Z$ 

Q$="VERB ENDING IN "+Y$+"ING"+Y$:GOSUB500:I$=Z$ 
Q$="PLURAL NOUN":GOSUB500:J$=Z$ 

Q$="NOUN":GOSUB500:K$=Z$ 

Q$="NAME OF PERSON":GOSUB500:L$=Z$ 

CLS * PRIHTS38.* 11 
PRINT06 4, 

PRINT"I HAVE NOW PROCESSED 
PRINT"RESULTS OF YOUR ";A$ 

PRINT"APTITUDE TESTS. I OFFICIALLY" 

PRINT"PREDICT THAT ";B$ 

PRINT"HAS A LOT OF TALENT FOR" 

PRINTC$;". SHE WILL" 

PRINT"PROBABLY BECOME A FAMOUS' 

PRINTD$;" LIKE ";E$;"." 

GOSUB 11000:PRINT 
PRINTF$;" WILL BECOME A" 

PRINT"SECOND ";G$;". ON" 

PRINT"THE OTHER HAND, ";H$ 

PRINT"SHOULD TAKE UP ";I$ 

PRINT"AND GET A JOB HANDLING" 

PRINTJ$; " . " 

PRINT"WHEN I GROW UP I WANT TO 





EDITOR 


u 


PRINT"EITHER A FIREMAN, 


BE" 
DOCTOR, 


OR" 


PRINT"A";:X$=K$:GOSUB8000:PRINTW$; 
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3215 PRINT" ";K$;" . IN THE MEANTIME," 

3220 PRINT"I AM MODELLING MYSELF AFTER MY" 

3230 PRINT"HERO, ";L$;"." 

3240 PRINT 

3250 PRINT" .—. . 

3260 GOSUB12000 

3270 IFPY$="R"THEN3000 

4000 LPRINTTAB(9)"F UTURE PROFESSIONS" 

4030 LPRINT:LPRINT 

4040 LPRINT"I HAVE NOW PROCESSED ALL THE "; 

4050 LPRINT"RESULTS OF YOUR ";A$ 

4060 LPRINT"APTITUDE TESTS. I OFFICIALLY "; 

4070 LPRINT "PREDICT THAT ",*B$ 

4080 LPRINT"HAS A LOT OF TALENT FOR "; 

4090 LPRINTC$;". SHE WILL" 

4100 LPRINT"PROBABLY BECOME A FAMOUS 
4110 LPRINTD$;" LIKE ";E$;"." 

4120 LPRINTF$;" WILL BECOME A SECOND ";G$;". ON" 

4140 LPRINT"THE OTHER HAND, ";H$; 

4150 LPRINT" SHOULD TAKE UP ";I$ 

4160 LPRINT"AND GET A JOB HANDLING 
4170 LPRINTJ$;"." 

4180 LPRINT 

4190 LPRINT"WHEN I GROW UP I WANT TO BE "; 

4200 LPRINT"EITHER A FIREMAN, A DOCTOR, OR" 

4210 LPRINT"A";:X$=K$:GOSUB8000:LPRINTW$;" ";K$;". IN THE "; 
4220 LPRINT"MEANTIME, I AM MODELLING MYSELF" 

4230 LPRINT"AFTER MY HERO, ";L$;"." 

4240 LPRINT 

4250 LPRINT"**************************************************" 
4260 LPRINT"**********" 

4270 LPRINT:LPRINT 
4280 GOSUB 12000 
4290 IFPY$="R"THEN3000 
4300 GOTO4000 
5000 GOSUB400 

5010 Q$="PLURAL NOUN":GOSUB500:A$=Z$ 

5020 Q$="NOUN":GOSUB500:B$=Z$ 

5030 Q$="A FOREIGN WORD":GOSUB500:C$=Z$ 

5040 Q$="ANOTHER FOREIGN WORD":GOSUB500:D$=Z$ 

5050 Q$="NONSENSE WORD":GOSUB500:E$=Z$ 

5060 Q$="A SILLY WORD":GOSUB500:F$=Z$ 

5070 Q$="NOUN":GOSUB 500:G$=Z$ 

5075 Q$="ANOTHER NOUN":GOSUB500:H$=Z$ 

5080 Q$="ADJECTIVE":GOSUB500:I$=Z$ 

5090 Q$="ANOTHER ADJECTIVE":GOSUB500:J$=Z$ 

5100 Q$="NOUN":GOSUB500:K$=Z$ 

5110 Q$="AN EXCLAMATION":GOSUB500:L$=Z$ 

6000 CLS 

6020 prints 37, 11 (rtiii]awi«siaigmis«Kas«" 

6030 PRINT@64 , 

6040 PRINT"GOOD HEALTH IS MORE IMPORTANT" 

6050 PRINT"THAN HAVING A LOT OF" 
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6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6240 

6250 

6260 

6265 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

7000 

7020 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7240 

7250 

7260 

7270 


PRINTA$;" OR BEING A VERY" 

PRINT"IMPORTANT 

PRINT"THE OLD GREEKS USED TO" 

PRINT"SAY: ";Y$;C$;" ";D$;Y$;"," 

PRINT"WHICH WHEN TRANSLATED MEANS:" 
PRINTY$;E$;" ";F$;Y$;". THE" 

PRINT"GREEKS WERE RIGHT. HAVING A" 

PRINT"SOUND MIND IN A SOUND" 

PRINTG$;" IS A PROPER GOAL FOR" 

PRINT"ALL ";H$;"-MINDED "? 

PRINT"PEOPLE." 

GOSUB11000:PRINT 

PRINT"TO ACHIEVE THIS, YOU MUST NOT" 
PRINT"ONLY BE IN "?I$;" SHAPE" 

PRINT"PHYSICALLY, BUT YOU MUST" 

PRINT"HAVE A"; 

X$=J$:GOSUB8000:PRINTW$; 

PRINT" ";J$;" MENTAL" 

PRINT"ATTITUDE AND KEEP AN EYE ON YOUR"; 
PRINTK$;" AT ALL TIMES." 

PRINT 

PRINT"IF YOU ARE TRULY INTERESTED IN" 

PRINT"SELF-IMPROVEMENT A GOOD MOTTO" 

PRINT"IS: ";Y $;L $;"!!!";Y $ 

PRINT 

PR I NT’" ..... 1 ■" 

GOSUB 12000 
IFPY$="R"THEN6000 

LPRINTTAB(7)"G OOD HEALTH OR 
LPRINT:LPRINT 

LPRINT"GOOD HEALTH IS MORE IMPORTANT "; 
LPRINT"THAN HAVING A LOT OF" 

LPRINTA$;" OR BEING A VERY 
LPRINT"IMPORTANT ";B$;"." 

LPRINT"THE OLD GREEKS USED TO 
LPRINT"SAY: ";Y$;C$;" ";D$;Y$;"," 

LPRINT"WHICH WHEN TRANSLATED MEANS: "; 
LPRINTY$;E$;" ";F$;Y$;". THE" 

LPRINT"GREEKS WERE RIGHT. HAVING A 
LPRINT"SOUND MIND IN A SOUND" 

LPRINTG$;" IS A PROPER GOAL "? 

LPRINT"FOR ALL H$;"-MINDED" 

LPRINT"PEOPLE." 

LPRINT 

LPRINT"TO ACHIEVE THIS, YOU MUST NOT "; 
LPRINT"ONLY BE IN ";I$ 

LPRINT"SHAPE PHYSICALLY, BUT YOU MUST " ,* 
LPRINT"HAVE A"; 

X$=J$:GOSUB8000:LPRINTW$; 

LPRINT" ";J $;" ATTITUDE" 

LPRINT"AND KEEP AN EYE ON YOUR "; 

LPRINTK$;" AT ALL TIMES." 

LPRINT"IF YOU ARE TRULY INTERESTED IN "; 


ELSE !" 


36 



tr 


7280 LPRINT"SELF-IMPROVEMENT A GOOD MOTTO" 

7290 LPRINT"IS: Y$;L$;"!!!";Y$ 

7300 LPRINT 

7310 LPRINT"**************************************************"; 
7320 LPRINT"**********" 

7330 LPRINTlLPRINT 
7340 GOSUB 12000 
7350 IFPY$="R"THEN6000 
7360 GOTO7000 
8000 V$=LEFT$ (X$,ll) 

8010 IFV$="A"ORV$="E"ORV$="I"0RV$="0"0RV$="U"THENW$="N"ELSEW$="" 
8020 RETURN 

11000 PRINTG482, " iaa SMB BM«W<SaiW188BWa<a " 

11020 KK$=INKEY$ 

11030 II$=INKEY$:IFII$<>" "THEN11030ELSECLS:RETURN 
12000 PRINTS482.- " ■ ISE-REFlD ISP:I.NT-OUT I3ENU ■ " J 
12010 KK$ = INKEY $ 

12020 PY $ = INKEY $: IF PY$ = "" THEN 12020 

12030 IFPY*«"P"THENPRINTfi482, " laSllilllimMSHMMMi 

12040 IFPY$="M"THENRUN 

12050 IFPY$="R"ORPY$="P"THENRETURNELSE12010 
12060 RETURN 


EXPLANANTION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

70 

SHIFT + 

J' S 



Line 

1000 

CTRL + 

INV + 

TEXT: 

WRITE A STORY 

Line 

3000 

CTRL + 

INV + 

TEXT: 

FUTURE PROFESSIONS 

Line 

3250 

SPACES, 

then 

SHIFT 

+ T' s 

Line 

6020 

CTRL + 

INV + 

TEXT: 

GOOD HEALTH OR ELSE 

Line 

6310 

SPACES, 

then 

SHIFT 

+ T' s 

Line 

11000 

CTRL + 

INV + 

TEXT: 

PRESS (SPACE) TO PROCEED 

Line 

12000 

CTRL + 

INV + 

TEXT: 

first character of each word 

Line 

12030 

CTRL + 

INV + 

TEXT: 

PRINTING STORY . . . 
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VZ-200 Hangman 


This program is the VZ-200 version of the traditional game. The 
computer chooses a word from its memory and prints on the screen 
a dash for each character of the selected word. You then choose 
which letter you want and if correct the computer will place 
that letter in the correct position(s). If you are wrong, then 
you begin the process of being hung! Another feature of the game 
is the ability to enter your own word instead of one from the 
computer. 


FOR THE PROGRAMMER 


If you have the 16K Memory expansion, you might like to increase 
the number of stored words. To do this simply add DATA lines and 
alter the value of NW in line 70 to match the total number of 
words stored. 

Line 2035 checks to ensure that the player's finger has released 
the key before proceeding. The memory location 28416 should 
contain 255 when no key is pressed. 


10 REM * VZ-200 HANGMAN * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (APRIL 1983) 

40 CLS 

50 DIM A(26) 

60 COLOR,0 '(SET BACKGROUND TO GREEN) 

70 NW = 100 '(NUMBER OF WORDS) 

320 DATA MOUTH,RIGHT,DEAD,WORM,CHEST,ROW,SORT,TRUE,CHEER,SON,SUN 

330 DATA RUN,RAT,WORK,PIE,FENCE,PAPER,PEOPLE,MOTOR,BUSY,STIFF, IT 

340 DATA PLEASE,DANCE,FRONT,MONTH,YEAR,DAY,HIGH,LOW,TODAY,WEATHER 

350 DATA LADDER,BABY,CHALK,HEAVY,CLOSE,YOUNG,FIELD,EASY,TASTE,IN 

360 DATA RADIO,FRIEND,PAST,WONDER,SUGAR,FOREST,KNOT 

370 DATA LAMB,VOICE,TOUCH,KNIFE,RICE,GIANT,CLOTH,BRIDGE,FRESH,OF 

380 DATA PIN,HEALTH,WEALTH,MISTAKE,NOTHING,COUNTRY,RED,BLUE 

390 DATA OCEAN,SKIN,TOE,WORK,SPORT,BEAUTIFUL,UNDERSTAND,SOMEWHERE 

400 DATA EVERYTHING,EVERYBODY,YESTERDAY,SOMETHING,BETWEEN,A 

410 DATA ANYTHING,BREAKFAST,CHILDREN,ALMOST,SUMMER,AFTERNOON,SHUT 

420 DATA CARPENTER,AMBULANCE,MEDICINE,MISERABLE,DAMAGE,ACCIDENT 

430 DATA MACHINE,BATTERY,MONKEY,HORSE,PROTECTED,VERANDAH 

460 REM SELECT WORD 

470 FOR N = 1 TO RND(NW) 

480 READ W$ 

490 NEXT 

500 REM PRINT ALPHABET 
510 COLOR 8 


38 






520 

530 

540 

550 

570 

580 

590 

600 

610 

620 

630 

635 

640 

650 

660 

670 

680 

690 

700 

710 

720 

750 

1000 


1010 

^J V S=’1020 

3®’ 1030 

3^1040 

1050 


PRINTS65.. "■.. 

PRIHTS9?.- "■ vtstamm r 
pr i nts 129, "■ ismsmamsi i" 

PRINTS 161.» " I . . . .—. I" 

prints 47, "iiimaunioiiN" 

PRINT@108, "USE THE ARROW KEYS" 

P RINT @14 0 , "TO MOVE THE CURSOR" 
PRINT0204,"USE THE <<CTRL>>" 

PRINT0236,"KEY TO SELECT LETTER" 
PRINT0289,"DO YOU WISH TO USE YOUR OWN" 
PRINT® 321,"WORD (Y/N)? " 

K$=INKEY$ 

I$=INKEY$:IFI$=""THEN640 
IFI$<>"Y"THEN CLS:GOTO 1000 
PRINT0289,"TYPE IN A WORD AND 
PRINT0321,"PRESS THE <<RETURN>> KEY 
PRINT@353,"(NO MORE THAN 14 LETTERS!)" 
PRINT:PRINT 
INPUT T$ 

IF T$ <> "" THEN W$ = T$ 

SOUND 1,1 
CLS 

REM PRINT ALPHABET 
COLOR 8 


PRINTS97.. "I wouni ■" 

PR I NTS 129, "■ ISRUMfiRIBI ■" 

PRINTf^lbl, "i——J" 

PRINT0451,"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
REM PRINT DASHES 
COLOR 7 
P = 387 

FOR N = 1 TO LEN(W$) 

PRINT0P," 

P = P + 2 
NEXT 

REM SELECT LETTER 
PO = 483 

COLOR 8 <PRINTSPO,; 

IF PEEK(28416) <> 255 THEN 2035 

PK = PEEK(28416) 

IF PK = 223 THEN 3000 


1050 

1060 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

2000 

2020 

2030 

2035 

2040 

2060 

2070 

2080 

2090 

3000 

3010 

3020 

3030 

3040 

4000 

4010 

4020 


PK = PEEK(28416) 

IF PK = 223 THEN 3000 
IF PK = 247 THEN 4000 
IF PK = 251 THEN 5000 
GOTO 2040 

REM MOVE POINTER LEFT 
PRINT0PO," "; 

PO = PO - 1 

IF PO < 483 THEN PO = 

GOTO 2030 

REM MOVE POINTER RIGHT 
PRINT0PO," 

PO = PO + 1 
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4030 IF PO > 508 THEN PO = 508 

4040 GOTO 2030 

5000 REM EXAMINE GUESS 

5005 IF A(PO-482) = 99 THEN 7000 

5010 L$ = CHR$(PO - 418) 

5020 FOR L = 1 TO LEN(W$) 

5030 IF MID$(W$,L,1) = L$ THEN GOSUB 6000 
5040 NEXT 

5050 IF C <> 99 THEN 10000' (DRAW BODY) 

5060 C = 0 '(RESET FLAG) 

5070 IF LK = LEN(W$) THEN 20000 '(WIN ROUTINE) 

5080 GOTO 2030 

6000 REM MOVE LETTER 

6010 LP = 385 + (L*2) '(LETTER POSITION) 

6020 C = 99 '(CORRECT FLAG) 

6025 PRINT0PO-32, L$ 

6030 PRINTGPO,""" ' 

6040 PRINT@PO-64, L$ 

6050 PRINTGPO-32, 

6060 PRINT0PO," " J 
6065 SOUND RND(20),2 
6070 PRINTGPO,; 

6080 PRINT0PO-32," 

6090 PRINTGPO.. ; 

6095 A(PO-482) = 99 '(SET USED FLAG) 

6100 IF PO - 96 > LP THEN 6200 

6110 IF PO - 96 < LP THEN 6300 

6120 IF PO - 96 = LP THEN 6400 

6200 REM MOVE LETTER LEFT 

6210 FOR N = PO - 64 TO LP + 32 STEP -1 

6220 PRINT@N,L$ 

6230 PRINT0N+1," 

6240 NEXT 

6250 GOTO 6400 

6300 REM MOVE LETTER RIGHT 

6310 FOR N = PO - 64 TO LP + 32 

6320 PRINT0N,L$ 

6330 PRINT0N-1," 

6340 NEXT 

6350 GOTO 6400 

6400 REM MOVE LETTER UP 

6402 IF C <> 99 THEN RETURN 

6405 SOUND RND (10) + 10,2 

6410 PRINT0LP,L$; 

6420 PRINT0LP+32," 

6430 LK = LK + 1 '(LETTER COUNT) 

6440 SOUND RND(10) + 20,2 
6450 RETURN 

7000 REM LETTER NOT THERE ROUTINE 
7010 PRINTGPO,""" ; 

7020 PRINTGP0~32, 

7030 PRINT0PO," " ? 

7040 SOUND RND ( 20) ,2 








7050 

7060 

7070 

7080 

10000 

10010 

10020 

10030 

10040 

10110 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11095 

11100 

11105 

11110 

11129 

11200 

11205 

11210 

11220 

11230 

11240 

11300 

11305 

11310 

11320 

11400 

11405 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 

11530 

11600 

11610 


PR I NTSPO .■ """ ; 

PRINT@PO-32," 

PRINTSPO, ; 

GOTO 2030 

REM INCORRECT GUESS 

IF RND(2) = 1 THEN LP = 384 ELSE LP = 415 
GOSUB 6030 

PRINT@416," ":PRINT0447," " 

SOUND 8,3:SOUND 4,3 
COLOR 8 
REM DRAW MAN 
M = M + 1 


THEN 
THEN 
THEN 

8 THEN 

9 THEN 


IF M = 1 
IF M = 2 
IF M = 3 
IF M = 4 
IF M = 5 
IF M = 6 
IF M = 7 
IF M 
IF M 

REM BASE 
COLOR 5 
PRINT8328," 
GOTO 2030 
REM UPRIGHT 
COLOR 5 
FOR N = 331 
PRINTGN, 

NEXT 

GOTO 2030 
REM HORIZONTAL 
COLOR 6 
PR I NTS 12, 

GOTO 2030 
REM HEAD 
COLOR 2 
PRINTG54, "I 

FOR N = 86 
PRINTGN, "■ 

NEXT 

PR I NTS 182, "I 
PRINTG216,""" 
COLOR 3 
PRINTG87, 

COLOR 7 
PR I NTS 120, V, 
COLOR 4 
PRINTG151, . 

GOTO 2030 
REM TRUNK 
COLOR 2 


THEN 11100 
THEN 11200 
THEN 11300 
THEN 11400 


11600 

11700 

11800 

11900 

11950 


TO 10 STEP -32 


1 " 


TO 150 STEP 

I" 


32 
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11620 

11630 

11640 

11650 

11700 

11710 

11720 

11730 

11735 

11740 

11750 

11800 

11810 

11820 

11830 

11835 

11840 

11850 

11900 

11910 

11920 

11925 

11930 

11935 

11940 

11950 

11960 

11970 

11975 

11980 

11985 

11990 

12000 

12005 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12300 


PRINTS213, ''mmmMmmm " 
PRINTS245, "■*■■■" 
PRINTS277, "■■■■■■" 
GOTO 2030 
REM LEFT ARM 
COLOR 2 
PRINTG212, "Vi 
PRINTS 179, "V'.i 
COLOR 7 
PRINT® 146, 

GOTO 2030 
REM RIGHT ARM 
COLOR 2 
PRINTG220, 

PR I NTS 189, 

COLOR 7 

PRINT®1 58, "B" 

GOTO 2030 
REM LEFT LEG 
COLOR 2 
PR1HTG310, 

GOTO 11935 
PRINTG341, 

COLOR 8 <PRINTS340, 
GOTO 2030 
REM RIGHT LEG 
COLOR 2 
PRINTG3 1 4, "V 
GOTO 11985 
PRINTG347, "V 
COLOR 8 


PRINTG347, 


REM LOSE GAME ROUTINE 

SOUND 0,2 

SOUND 4,6 

SOUND 4,5 

SOUND 4,1 

SOUND 4,6 

SOUND 7,5 

SOUND 6,1 

SOUND 6,5 

SOUND 4,1 

SOUND 4,5 

SOUND 2,1 

SOUND 4,7 


LP = 387 

FOR N = 1 TO LEN(W$) 
PRINT@LP,MID$(W$,N,1) 
LP = LP + 2 
SOUND 30,1 
NEXT 

PRINT0PO," "? 
PRINTG450, "IS 





lams 
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12310 K$ = INKEY$ 

12320 1$ = INKEY$:IF 1$ = "" THEN 12320 

12330 IF ASC(I$) <> 13 THEN 12320 ELSE RUN 

15000 REM WRIGGLE BODY 

15010 GOTO 2030 

15020 RETURN 

20000 REM WIN ROUTINE 

20100 PRINT0112,"PHEW!" 

20110 FOR N = 1 TO 4 
20120 SOUND 23,1 
20130 NEXT 

20140 FOR N = 1 TO 4 
20150 SOUND 25,1 
20160 NEXT 
20170 SOUND 23,1 
20180 SOUND 23,1 
20190 SOUND 27,1 
20200 SOUND 27,1 
20210 SOUND 28,4 
20220 GOTO 12260 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

520 

SHIFT 

+ 

u, 

then 

SHIFT + T's, 

then 

SHIFT + 

I 


Line 

530 

SHIFT 

+ 

U, 

then 

CTRL + INV + 

TEXT: 

VZ-200, 


then 



SHIFT 

+ 

I 







Line 

540 

SHIFT 

+ 

U, 

then 

CTRL + INV + 

TEXT: 

HANGMAN 

f 

then 



SHIFT 

+ 

I 







Line 

550 

SHIFT 

+ 

U, 

then 

SHIFT + Y's, 

then 

SHIFT + 

I 


Line 

570 

CTRL 4 

- INV 

+ TEXT: INSTRUCTIONS 




Line 

1020 

SHIFT 

+ 

U, 

then 

SHIFT + T's, 

then 

SHIFT + 

I 


Line 

1030 

SHIFT 

+ 

U, 

then 

CTRL + INV + 

TEXT: 

VZ-200, 


then 



SHIFT 

+ 

I 







Line 

1040 

SHIFT 

+ 

U, 

then 

CTRL + INV + 

TEXT: 

HANGMAN 

f 

then, 



SHIFT 

+ 

I 







Line 

1050 

SHIFT 

+ 

U, 

then 

SHIFT + Y's, 

then 

SHIFT + 

I 


Line 

2030 

SHIFT 

+ 

J 







Line 

6030 

SHIFT 

+ 

T 







Line 

6050 

SHIFT 

+ 

J 







Line 

6070 

SHIFT 

+ 

T 







Line 

6090 

SHIFT 

+ 

J 







Line 

7010 

SHIFT 

+ 

T 







Line 

7020 

SHIFT 

+ 

J 







Line 

7050 

SHIFT 

+ 

T 







Line 

7070 

SHIFT 

+ 

J 







Line 

11110 

SHIFT 

+ 

Y' 

s 






Line 

11220 

SHIFT 

+ 

J 








43 



code explanation cont 


Line 

11310 

SHIFT 

+ 

T's, then SHIFT + J 


Line 

11410 

SHIFT 

+ 

U, then SHIFT + T's, then SHIFT + 

I 

Line 

11430 

SHIFT 

+ 

U, then SPACES, then SHIFT + I 


Line 

11450 

SHIFT 

+ 

U, the SHIFT + T's, then SHIFT + I 


Line 

11460 

SHIFT 

+ 

T 


Line 

11480 

SHIFT 

+ 

Y, then a SPACE, then SHIFT + Y 


Line 

11500 

SHIFT 

+ 

Y 


Line 

11520 

SHIFT 

+ 

Y's 


Line 

11620 

SHIFT 

+ 

Y's, then SHIFT + J, then SHIFT + 

Y' s 

Line 

11630 

SHIFT 

+ 

J's 


Line 

11640 

SHIFT 

+ 

J's 


Line 

11720 

SHIFT 

+ 

G 


Line 

11730 

SHIFT 

+ 

G 


Line 

11740 

SHIFT 

+ 

J 


Line 

11820 

SHIFT 

+ 

H 


Line 

11830 

SHIFT 

+ 

H 


Line 

11840 

SHIFT 

+ 

J 


Line 

11920 

SHIFT 

+ 

H 


Line 

11930 

SHIFT 

+ 

H 


Line 

11935 

SHIFT 

+ 

T's 


Line 

11970 

SHIFT 

+ 

G 


Line 

11980 

SHIFT 

+ 

G 


Line 

11990 

SHIFT 

+ 

T's 


Line 

12300 

CTRL ■ 

f 

INV + TEXT: PRESS (RETURN) FOR NEW 

GAME 
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Moving Targets 

In this program you have to try to hit the moving targets. Each 
one hit scores 500 points, while each miss will cost you 100 
points. A score of over 8,000 will give you bonus time. As the 
score gets higher, you will find that the targets become harder 
to hit. 

The computer will keep track of the name and score of the player 
with the highest score. 


FOR THE PROGRAMMER 


This program has been designed in a straightforward manner to 
allow you to follow the logic and see how the 'target' is moved 
in lines 5010-5040. Also the determination as to whether the 
target has been hit or not (line 6400- 6440) and progressive 
scoring in line 2010. 

The logic used in this program can be 'tailored' to suit a 
variety of applications that require movement of an object, so 
examine the routines closely. 




10 REM * MOVING TARGETS * 

20 REM WRITTEN BY WAYNE G. RICHMOND 
30 REM (MAY 1983) 

35 COLOR ,0 
40 CLS 
50 D = 2000 

60 GOSUB 30000 '(INTRODUCTION) 

70 SOUND 23,1:SOUND 23,1 
80 SOUND 28,3 
90 CLS 

400 PRINT01,"SCORE =" 

410 PRINT018,"TIME =" 

420 PRINT050,"HITS =" 

430 PRINT082,"MISSES =" 

440 S = 0:H = 0:M = 0 
450 IF TS = 0 THEN 500 
460 PRINT033,"CHAMP =" 

470 PRINT041,PRINTUSING" 

500 T$( 1 > = = TSK2> = " 

520 DF = 8 
540 COLOR 8 
550 LP = 496 
560 PRINTI2LP.- ; 

570 GOSUB 600 


TflU" 



, ###";ts 

n 
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580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

1000 

1010 

1020 

2000 

2010 

2020 

2030 

2040 

5000 

5010 

5020 

5030 

5040 

5050 

5100 

5110 

5120 

5130 

5140 

5150 

5300 

5310 

5320 

5330 

5340 

5350 

6000 

6005 

6010 

6020 

6030 

6040 

6050 

6055 

6060 

6070 

6100 

6110 

6120 

6130 

6140 


TI = 1000 '(START COUNTDOWN AT 1000) 
GOTO 1000 

REM RESET STARTING POINTS 
T = 1:D = 100 
TP = RND (32) + 126 
C = RND(6) + 2 


IF 

IF 

IF 

IF 

IF 

IF 

DF 


S 
S 
S 
S 

s 
s 

= 1 : 


RETURN 

RETURN 

RETURN 




> 3000 THEN 650 ELSE RETURN 

> 5000 THEN 660 ELSE DF = 6 

> 7000 THEN 670 ELSE DF = 5 

> 9000 THEN 680 ELSE DF = 4: 

> 11000 THEN 690 ELSE DF = 3:RETURN 

> 12000 THEN 700 ELSE DF = 2:RETURN 
RETURN 

GOSUB10000 
GOSUB 2000 
GOTO 5000 
REM UPDATE SCORES 
TI = TI - 2 

PRINT027,;:PRINTUSING"####";TI 
IF TI = 0 THEN 20000 
RETURN 

REM MOVE LASER *.‘ou£ T 

PK = PEEK(28416) 

IF PK = 223 THEN 5100 
IF PK = 247 THEN 5300 
IF PK = 251 THEN 6000 
GOTO 1000 
LP = LP - 1 

IF LP < 481 THEN LP = 481 
COLOR 8 
PRINTffiLP,; 

PRINT0LP + 1," " ; 

GOTO 1000 
LP = LP + 1 


' (MOVE LEFT) 

' (MOVE RIGHT) 
' (FIRE) 


IF LP > 510 THEN LP = 510 
COLOR 8 
PRIHTSLP.- ; 

PRINT0LP - 1," " ; 

GOTO 1000 

REM FIRE CANNON 

COLOR S ! PRINTfiLP.* "■»" > 

COLOR 4:SOUND 15,l:GOSUB 6400 

FOR N = LP - 160 TO LP - 352 STEP - 96 

PRINTSN, """ 

PRINT0N+96," " 

NEXT 

COLOR 8 : PRINTfiLP.- j 
COLOR 2 

PRINT0N+96," " 

IF HT <> 99 THEN 6200 ELSE HT = 0 

COLOR 8 

PRINT8TP.. "V 

SOUND 30,1:SOUND 29,1 

PRINT0TP," " 
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6150 

6160 

6170 

6180 

6200 

6210 

6220 

6230 

6400 

6410 

6420 

6430 

6440 

6450 

10000 

10005 

10010 

10020 

10030 

10040 

10045 

10050 

10060 

10070 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20105 

20107 

20108 


S = S + 500:PRINT09, 
H = H + 1:PRINT058,; 
GOSUB 600 
GOTO 1000 
SOUND 1,5 

S = S - 100:PRINT09, 
M = M + 1:PRINT090 ,; 
GOTO 1000 


;:PRINTUSING"##,###"; 
:PRINTUSING"#,###";H 


;:PRINTUSING"##,###"; 
:PRINTUSING"#,###";M 


FOR HIT 
+ LP - 352 
TO J + 1 

<> 96 THEN 


REM CHECK 
J = 28672 
FOR N = J 

IF PEEK(N) <> 96 THEN HT = 99 
NEXT 
RETURN 

REM MOVE TARGET 
COLOR C 

IF T = 2 THEN T = l:GOTO 
IF RND(DF) <> 1 THEN R = R ELSE R = RND(2) 
IF R = 1 THEN TP = TP + 1 ELSE TP = TP - 1 
IF TP < 128 THEN TP = 130:R = 1:PRINT0128," 
IF TP > 158 THEN TP = 156:R = 2:PRINT0158," 
PRINT0TP,T$(T); 

IF R = 1 THEN PRINT0TP-1," 

RETURN 

REM END OF GAME 

IF BT = 99 THEN BT = 0:GOTO 20100 
IF S < 8000 THEN 20100 
COLOR 8 

PR I NTS 18.- "IsaniUUM 11 
TI = 200 

SOUND 23,1:SOUND 


Hove r « N<< 


10050 ELSE T = 2 


";ELSEPRINT0TP+1, " 


18,1 


SOUND 23,1:SOUND 18,1 

BT = 99' (SET BONUS TIME FLAG) 

GOTO 1000 

PRINTG98, "mBMUMMCl" 

PRINT0TP," " 

FOR N = 30 TO 1 STEP -1 
SOUND N,1 



20109 

20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20195 
21000 
21010 
21020 
21030 


NEXT 

IF TS = 0 THEN 20150 
IF S <= TS THEN 21000 
PRINT0161,"NEW TOP SCORE!!" 

PRINT0225,"(OLD CHAMPION: ";TN$;")" 

PRINT0321,"TYPE NAME AND PRESS <<RETURN>>" 
PRINT@385,; 

INPUT N$ 

IF N$ = "" THEN 20160 
TN$ = N$:TS = S:N$ = "" 

COLOR 8 

PRINTS481 • "i taa^s^BSi^a^^ansHaiaiiaiiiaigmiH^iasai r ; 

K$=INKEY$ 

I$=INKEY$:IFI$=""THEN21020 
IF 1$ <> " " THEN 21020 
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21040 

21050 

21060 

21070 

30000 

30005 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30100 

30110 

30120 

30130 

30140 

30150 

30160 

30170 

30180 

30182 

30185 

30190 

30200 

30210 

30220 

30230 

30400 

30410 

30420 

30430 

30440 

30450 

30460 

30470 

30480 

30490 

30500 

30600 


CLS 

SOUND 23,1:SOUND 23,1 
SOUND 28,3 
GOTO 60 

REM DRAW FRAME ;ij ', c • v r ■■. / ■ 

CLSiCOLOR 8 

PRINTS©.- " . . . . ... . .— " 

PRIHTS480, " . . ■ " ■■■ »" ' —. . ..T ". 

FOR N = 32 TO 448 STEP 32 

PRINTSN,"•% 

PRINTSN+31 j> "■ "i 
NEXT 

PRINTS31 > "« 

POKE 29183,248 

COLOR 7 TPUvjK. Pf rv 7\CX 

PR INTS72 > "I ISnroiBMliaSMstfjg ■"; 

T$ = "(BY WAYNE G. RICHMOND)" 

FOR N = 1 TO LEN(T$) 

PRINT0133,RIGHT$(T$,N); 

NEXT 5 S’QY 'CK . v. 

PRINT0194, "* AIM WITH THE ARROW KEYS"; ** , *>'<? r' 

PRINT0226,"* FIRE WITH THE <<CTRL>> KEY"; r ’ r 
PRINT0290,OVER 8,000 GETS BONUS TIME"; 

PRINT@322,"* MISSES COST 100 POINTS!"; 

IF TS = 0 THEN 30220 

PRINT@354,"* CURRENT CHAMPION IS:"; 

PR IHTS4 18 , TN* , "EWWISlaB" > ! PRINTUSING " ## , ### " ; TS ; r<&< - ' 

GOTO30400 

PRINT0386,"* TARGETS BECOME HARDER TO"; 

PRINT®418," HIT AS YOUR SCORE RISES!"; 

FOR N = 1 TO D:NEXT 

K$ = INKEY$ , /.,■ 

PRINT0131, " <<HIT ANY KEY TO BEGIN>>"; '>■*'> 

SOUND 30,1 
FOR N = 1 TO 80 
I$=INKEY$:IFI$<>""THEN RETURN 
NEXT 

PRINT0132," "; 

FOR N = 1 TO 20 
I$=INKEY$:IFI$<>""THEN RETURN 
NEXT 

GOTO 30420 


For explanation of graphics codes used, see next page 
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EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

500 

SHIFT + 

A, SHIFT + T and SHIFT + S. SHIFT + J 

Line 

560 

SHIFT + 

J 



Line 

5130 

SHIFT + 

J 



Line 

5330 

SHIFT + 

J 



Line 

6005 

SHIFT + 

Y 



Line 

6030 

SHIFT + 

T 



Line 

6055 

SHIFT + 

J 



Line 

6120 

SHIFT + 

D and SHIFT + Y and 

SHIFT + F 


Line 

20040 

CTRL + 

INV + TEXT: BONUS 



Line 

20100 

CTRL + 

INV + TEXT: GAME OVER 



Line 

21000 

SHIFT + 

U, then CTRL + INV + 

TEXT: PRESS 

(SPACE) 



FOR NEW 

GAME, then SHIFT + I 



Line 

30010 

SHIFT + 

Y's 



Line 

30020 

SHIFT + 

T' s 



Line 

30040 

SHIFT + 

I 



Line 

30050 

SHIFT + 

U 



Line 

30070 

SHIFT + 

S 



Line 

30110 

SHIFT + 

U, then CTRL + INV + 

TEXT: MOVING 

TARGETS 



then SHIFT + I 



Line 

30200 

CTRL + 

INV + TEXT: SCORE: 
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VZ-200 Mastermind 


This is the computerised version of one of the world's most 
popular games, Mastermind. In this version, you are pitted 
against the amazing VZ-200 . . . Can you win? 

The standard rules for Mastermind apply here. You have to choose 
from eight colours depicted along the top row of the keyboard. 
Simply touch the key below the required colour and it will be 
selected. 

For each colour correctly selected and placed in the correct 
position, you will receive a black marker. A correct colour only 
(and in the wrong position) will result in a white marker being 
displayed. These are the only clues you will be given. You will 
have only eight turns to try to deduce the correct combination. 
Good luck! 

N.B. If you have trouble differentiating between the colours on 
your TV screen, you may wish to replace line 1530 with the REM 
statement in line 40 (remember to remove the REM word itself). 
This will display the colour number next to each colour square. 


FOR THE PROGRAMMER 


As this program is a little more complex than most, we have 
again used REM statements throughout the program to explain what 
is happening in the various sections. Note the way in which the 
initial random code is generated in lines 200-280. Also, the 
continued used of string functions throughout this program. 

Also note the 'guess' routine from lines 1000-1100 which 
incorporates the keyboard Peek address. It (the PEEK) is 
'calling' the keyboard to check and 'see' whether or not a key 
has been pressed and if so, which key. 


VZ-200 MASTERMIND 

WRITTEN BY WAYNE G. RICHMOND 

(APRIL, 1983) 

ALTERNATIVE LINE 1530 PRINTSV+H, 


(SET 

(SET 


KNOB VERTICAL) 
PEG VERTICAL) 


10 REM 
20 REM 
30 REM 
40 REM 
50 CLS 
100 V = -24 
110 VP = -8 
120 COLOR ,0 

200 REM SELECT RANDOM CODE 
210 FOR N = 1 TO 4 
2 20 X = RND (8) 

230 X$ = MID$(STR$ (X) ,2,1) 
240 FOR A = 1 TO LEN(R$) 
250 IF X$ = MID$(R$,A,1) 
260 NEXT 


I*! 


THEN220 
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270 R$ = R$ + X$ 

280 NEXT 

300 REM INTRODUCTION 
305 COLOR 8 

308 PRINTS?.. " i ii hi .■ ■■■■■■■■■■■■ " 

310 PRINTS39, " UJaCM5K«fSB*|aiaa»ISIi) 11 

315 PRINTS71 .■ " ..— 11 

318 SOUND 17,1 

320 T$="(BY WAYNE G. RICHMOND)" 

330 FOR N = 1 TO LEN(T$) 

340 PRINT@101,RIGHT$(T$,N); 

345 FOR X = 1 TO 5:NEXT 

350 NEXT 

355 SOUND 18,1 

360 PRINT0161,"CAN YOU DEDUCE THE 4 COLOUR" 

370 PRINT0193,"CODE IN 8 TRIES?" 

380 PRINT 

390 PRINT" USE THE 8 NUMBER/COLOUR KEYS" 

400 PRINT 
410 COLOR 3 

420 PRINT" I «* CORRECT COLOUR & POSITION" 

430 PRINT:COLOR 5 

440 PRINT" ■ « CORRECT COLOUR ONLY" 

450 K$ = INKEY$ 

460 COLOR 8 

480 PRINTS453, " «S»« WlSlflMS«n«aKa:<*»ISI " 

490 SOUND 30,1 
500 FOR N = 1 TO 80 

510 1$ = INKEY$:IF 1$ <> "" THEN CLS:GOTO 1000 

520 NEXT 

530 PRINT0453," " 

540 FOR N = 1 TO 20 

550 1$ = INKEY$:IF 1$ <> "" THEN CLS:GOTO 1000 

560 NEXT 

570 GOTO480 

1000 REM INPUT GUESS 

1010 H=0:V=V+64:HP=0:VP=VP+64 

1020 C$="":B=0:W=0 

1025 IF PEEK(28416) <> 255 THEN 1025 

1030 PI = PEEK(28663):I = 0 

1040 IF PI = 255 THEN 1200 

1050 IF PI = 239 THEN 1=1 

1060 IF PI = 253 THEN 1=2 

1070 IF Pi = 247 THEN 1=3 

1080 IF PI = 223 THEN 1=4 

1090 IF PI = 254 THEN 1=5 

1100 IF I = 0 THEN 1030 

1110 GOTO 1500 

1200 P2 = PEEK(28639) 

1210 IF P2 = 255 THEN 1030 

1220 IF P2 = 254 THEN 1=6 

1230 IF P2 = 223 THEN 1=7 

1240 IF P2 = 247 THEN 1=8 


1250 

1500 

1510 

1520 

Jfe’ 153 0 

V 5 1535 
1540 
1550 
1560 
1570 
1800 
1810 
1820 
1830 
1840 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2110 
2120 
2130 
^^>2140 
2145 
2150 
2160 
2200 
2210 
2220 
2230 
2235 
2240 
2250 
2300 
2310 
2320 
2330 
3000 
3010 



IF I = 0 THEN 1030 

1$ = MID$(STR$(I),2,1):GOTO 1800 

C$ = C$ + 1$ 

COLOR I 
PRINTlSV+H, " 

SOUND 30,1 

IF H = 12 THEN 2000 

H = H + 4 

IF PEEK (28416) <> 255 THEN 1560 
GOTO 1030 

FOR N = 1 TO LEN(C$) 

IF 1$ = MID$(C$,N,1) THEN F = 99 
NEXT 

IF F = 99 THEN F = 0:GOTO 1030 
GOTO 1510 

REM EXAMINE ANSWER 
FOR R = 1 TO 4 
FOR C = 1 TO 4 

IF MID$(R$,R,1) = MID$(C$,C,1) THEN GOSUB 

NEXT C 
NEXT R 

IF B = 0 AND W = 0 THEN SOUND 7,3:SOUND 4,3 
REM DRAW PEGS 
IF B = 0 THEN 2200 
COLOR 3 

FOR N = 1 TO B 


3000 




PRIMTSVP+HP, "■ "; 
SOUND 20,1 
HP=HP+2 
NEXT 

IF W = 0 THEN 2300 
COLOR 5 

FOR N = 1 TO W 
PRINTI2VP+HP, "I " J 
SOUND 10,1 
HP=HP+2 



NEXT 

IF B = 4 THEN 12000 '(WINNER) 

IF V = 488 THEN 12000 '(LOSER) 
IF PEEK(28416) <> 255 THEN 2320 
GOTO 1000 

IF R = C THEN B=B+1 ELSE W=W+1 
RETURN 


8000 PRINT PEEK(28416):GOTO 8000 
12000 REM PRINT CORRECT CODE 
12010 PO=33 



12020 FOR N = 1 TO 4 
12025 M$ = MID$(R$,N,1) 
12030 K = VAL(M$) 

12040 COLOR K 
12050 PRINTI2P0, 

12060 PR INTSPO+32, ; 

12065 PRINT0PO-32,M$; 
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12070 PO = PO + 2 
12080 NEXT 

12100 IF B <> 4 THEN SOUND l,9:GOTO 12200 



12110 SOUND 16,3 

12120 SOUND 11,2 

12130 SOUND 11,1 

12140 SOUND 13,3 

12150 SOUND 11,3 

12160 SOUND 0,2 

12170 SOUND 15,4 

12180 SOUND 16,4 

12200 PRINTS 161 .• "laSMWS" :> 

12210 PR INTS225, "IS^MlSlSI"; 

12220 PR INT82S9.. "«na" > 

12230 PR INTS353, "IBIsISI" 

12240 PR INTS417, "WSlfilaT ; 

12245 K$ = INKEY$ 

12250 I$ = INKEY$:IFI$=""THEN12250 
12260 IF ASC(I $) <> 13 THEN 12250 
12270 SOUND 13,1 
12280 RUN 


EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 40 SHIFT + J's 

Line 308 SHIFT + Y's 

Line 310 CTRL + INV + TEXT: VZ-200 MASTERMIND 

Line 315 SHIFT + T's 

Line 420 SPACE, then SHIFT + U 

Line 440 SPACE, then SHIFT + U 

Line 480 CTRL + INV + TEXT: HIT ANY KEY TO BEGIN 


Line 

1530 

SHIFT + J's 




Line 

2140 

SHIFT + U 




Line 

2230 

SHIFT + U 




Line 

12050 

SHIFT + J 




Line 

12065 

SHIFT + J 




Line 

12200 

CTRL + INV 

+ 

TEXT: 

PRESS 

Line 

12210 

CTRL + INV 

+ 

TEXT: 

RETURN 

Line 

12220 

CTRL + INV 

+ 

TEXT: 

FOR 

Line 

12230 

CTRL + INV 

+ 

TEXT: 

NEW 

Line 

12240 

CTRL + INV 

+ 

TEXT: 

GAME 
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C SAU<£ 


Vz. -2o0 cup 


VZ-200 Cup 

This neat little program simulates a horse race. Up to ten 
people can place bets on any of the six horses. Each horse is 
given 'odds' and as a rule will race accordingly. However a long 
shot has been known to win! 

Imagine the joy of tearing your hair out as you watch the race 
in living colour. The computer will keep track of the bettors' 
names and winnings (if any!) and is one program that should keep 
you on the edge of your chair. 


FOR THE PROGRAMMER 


Lines 4000-4060 determine whether or not a particular horse will 
move on each round. Line 4010 lessens the chance of a horse with 
high odds while line 4007 gives that same horse an extra chance. 
Line 575 however, is one that can on occasions give a 
'long-shot' horse a real winning chance. 

c SAvJf " i/<? ' 2 CO Cop" 


10 
20 
30 
50 
80 
90 
200 
210 
500 
510 
520 
530 
540 
550 
560 
570 
575 
580 
590 
600 
610 
620 
660 
700 
1000 
1010 
1040 
1050 
1060 
1070 


* VZ-200 CUP * 

BY WAYNE G. RICHMOND 
(MAY 1983) 

COLOR ,0:CLEAR 300 
N$ (6) , C (6) , H$ (6) , 


REM 
REM 
REM 
CLS 
DIM 
SP$=" - 
K$ = INKEY$ 

1$ = INKEY$:IF 
REM SET-UP 
FOR N = 1 TO 6 
READ N$(N) ' 


1 $ <> 


(MAY 1983) 


P (6) , M(24) , P$ (6) 

":GOTO 500 

" THEN 210 ELSE RETURN 


(NAME) 

READ C(N) '(COLOUR CODE) 
READ H$ (N) ' (HORSE) 

READ P(N) '(STARTING POS) 
D (N) = RND (10 ) ' (ODDS) 


' (MOVEMENT 
AND RND (3) 


DD (N) = D (N) 

IF DD (N) < 3 
R = R + D (N) 

NEXT 

FOR N = 1 TO 6 
READ P$(N) 

NEXT 

GOSUB 30000 '(INTRO) 

GOSUB 8000 '(BETS) 

REM SET-UP TRACK 
GOSUB 12000 '(CLEAR SCREEN) 
COLOR 1 

FOR N = 93 TO 413 STEP 32 
PRINT8H, " ■" .i 
NEXT 


ODDS) 

= 1 THEN 


DD (N) = 10' (LONG SHOT) 
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1100 

1110 

1120 

1140 

1200 

1210 

1300 

2000 

2010 

2020 

2030 

2040 

2060 

2070 

2100 

4000 

4005 

4007 

4010 

4020 

4030 

4040 

4050 

4060 

7000 

7010 

^>7020 

7030 

-pfe" 7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

J ^- 7230 

7240 

270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 


FOR N = 1 TO 6 
COLOR C (N) 

PRINT0P(N) ,H$ (N) ; 

NEXT 

PRINT0450,"THEY'RE AT THE GATES . . 

SOUND 11,6:SOUND ll,3:SOUND ll,3:SOUND 11,3:SOUND 16,6 
PRINT0450,"THEY 1 RE OFF!! ... "i 

REM RACE ROUTINE 
FOR N = 1 TO 6 
GOSUB 4000 
COLOR C(N) 

PRINT0P(N)+M(N),H$(N); 

NEXT 

IF W = 99 THEN 7000' (CHECK FOR WINNER(S)) 

GOTO 2010 

REM DECIDE ON MOVEMENT 
IF RND(3) = 1 THEN RETURN 

IF RND(4) = 1 THEN IF DD (N) < 2 THEN 4020 

IF RND(DD(N)) < 2 THEN 4030 

M(N) = M(N) + 1:GOTO 4040 

IF RND(3) = 1 THEN M(N) = M(N) + 1 

IF M (N) = 24 THEN W = 99 

IF M(N) > 3 THEN PRINT0450," "? 

RETURN 

REM WINNER 

FORN=1T04:SOUND28,1:SOUND25,1:NEXT:SOUND28,6 

pr i nt®449 .■" " ■ 

GOSUB 200:GOSUB 12000:COLOR 5 
PRINTG65, "MMW CP iiRlfil* 

P=1:PO=130:WN=0 
FOR X = 24 TO 1 STEP -1 
FOR N = 1 TO 6 

IF M(N) <> X THEN 7190 
WN = 99 
COLOR C(N) 

PRINT@PO,P$(P);" ";H$ (N);" ";N$(N); 

PRINT0PO+23,;:PRINTUSING"##:1";INT(R/D(N)) 

PO = PO + 32 
NEXT N 

IF WN = 99 THEN P = P + 1:WN = 0 
NEXT X 
COLOR 7 

PRIHTS41?.- 11 " i 

GOSUB 200:GOSUB 9000:COLOR 7 

print' 541 ?," miMamaiainpaiiiMnraiKHi n ■ 

1$ = INKEY$:IF 1$ = " " THEN 7280 

IF 1$ = "N" THEN RUN ELSE IF 1$ <> "Y" THEN 7280 
REM SET-UP FOR NEW RACE 
GOSUB 12000 
R=0:W=0 

FOR N = 1 TO 6 
D(N) = RND (10) 

DD (N) = D (N) 
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1 THEN DD(N) 


10 


'7360 

7370 

7380 

7390 

7400 

7410 

8000 

8010 

8050 

8060 

8100 

8105 

8110 

8120 

8130 

8140 

8145 

8150 

JW>8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

JW’ 824 0 

8245 

8250 

8260 

8270 

8275 

8280 

8300 

8310 

J^ 832 0 

8330 

8335 

8340 

8350 

J^8360 

8370 

8380 

8390 

8400 

8500 

9000 

9010 

9020 

9030 

9040 

9100 

^ 9U0 


IF DD(N) < 3 AND RND(3) = 
R = R + D (N) 

M (N) = 0 

NEXT 

SG = 99 ’(SECOND GAME FLAG) 
GOTO 700 

REM SET-UP TRACK 
GOSUB 12000:COLOR 5 


PRINT887,"«!» KRlSls* UliiffiS " ; 

PO = 98 

FOR N = 1 TO 6 
PO = PO + 32 
COLOR C(N) 

PRINT@PO,H$(N);" ";N$ (N); 

PRINT0PO+19,;:PRINTUSING"##:1";INT(R/D(N)) 

NEXT 

IF SG = 99 THEN 8260 

PRINT0355,"HOW MANY BETTORS (1-10)"; 

INPUT NB# ! IF NB# * "■ " THEN 8150 
NB = VAL(NB$) 

IF NB < 1 OR NB > 10 THEN PRINT0379," ";:GOTO 8150 
PRINT0355,"ENTER NAMES OF BETTORS 
FOR N = 1 TO NB 
PRINT0419,SP$; 

PRINT0419,"BETTOR #";N; 

INPUT BN$(N) 

IF BN(KN> - THEN 8220 
BN$(N) = LEFT$ (BN$(N) ,14) 

NEXT 

PRINT0355,"ENTER HORSE NUMBER AND BET 
FOR N = 1 TO NB 

PRINT0387,"FOR ";BN$(N); 

PRINT®419,SP$; 

PRINT0419,"HORSE #"; 

INPUT HN$ 

IF HN* * "■ " THEN 8300 
HN(N) = VAL(HN$) 

IF HN(N) < 1 OR HN(N) > 6 THEN 8280 
PRINT0431,"BET ($)"; 

INPUT A$ 

IF = "I " THEN 8340 
BA(N) = VAL(A$) 

IF BA(N) < 1 THEN 8340 
NEXT 
RETURN 
GOTO8500 
REM WINNINGS 
FOR N = 1 TO NB 

IF M(HN(N))=24 THEN W(N)=W(N)+INT((R/D(HN(N))))*BA(N) 
IF M(HN(N)) <> 24 THEN W(N) = W(N) - BA(N) 

NEXT 

GOSUB 12000 


PRINTS66, 


fsjaaaaisv 


IStllCV ", 
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9120 
9130 
9140 
9160 
9170 
9180 
9190 
9999 
12000 
12010 
12020 
12030 
12040 
30000 
30010 
30090 
’30100 
30110 
30120 
30130 
30140 
30150 
30160 
30170 
30180 
30190 
30200 
30210 
30215 
31000 
31005 
’31010 
’31020 
31030 
>31040 
,31050 
31060 
>31070 
31080 
31090 
>40000 
-40010 
3^40020 
W®=40030 
>40040 
»40050 
40060 


%+$$########,###";BN$(N);W(N) 





PO = 130 
FOR N = 1 TO NB 
PRINT0PO,; 

PRINTUSING"% 

PO = PO + 32 
NEXT 
RETURN 
G0T09999 

REM CLEAR SCREEN 
FOR N = 65 TO 449 STEP 32 
PRINT0N,SP$;" 

NEXT 

RETURN 

REM INTRODUCTION 

GOSUB 31000' (DRAW FRAME) 

COLOR 7 

print* 74 ,»"; 

T$ = "(BY WAYNE G. RICHMOND)" 

FOR N = 1 TO LEN(T$) 

PRINT0133,RIGHT$(T$,N); 

NEXT 

PRINT0194,"THE BIG RACE IS ABOUT TO"; 
PRINT0226,"START!! CHOOSE YOUR HORSE"; 
PRINT0258,"AND LAY YOUR BETS AND WATCH"; 
PRINT0290,"THEM PONIES GO!!"; 

print* 418, " iaa jM-»aa qjni^a3»i—aa«M3ia»]i" 

GOSUB 200 
SOUND 30,1 
RETURN 

REM DRAW FRAME 
COLOR 8 

PRINT*©, " ii .. . .—. . —.—— " ; 

PRINTG480, " " ' . . - ... ; 

FOR N = 32 TO 448 STEP 32 
PRINTGN, " I" i 
PR INTSN+31, "■ % 

NEXT 

PRINTG31, "■ "i 
POKE 29183,248 
RETURN 

DATA "JIMMY BOY", 4," 

"NOSY PARKER",3, 

"FRISKY JOE",8," 

"SNOW JOKE",5," 

"TRICKY DICKY",2," 

"WHAT A DOLL", 7," M" , 385 


DATA 

DATA' 

DATA 

DATA 

DATA 

DATA 



" 1ST " , " 2 ND " , " 3 RD " , " 4 TH " , " 5 TH " , " 6 TH " 


For explanation of graphics codes used, see next page. 


57 



EXPLANATION OF THE GRAPHICS CODES USED IN THE PROGRAM 


Line 

1060 

SHIFT + D 






Line 

7020 

CTRL + INV 

+ 

TEXT: 

PRESS 

(SPACE) 

FOR RESULTS! 

Line 

7090 

CTRL + INV 

+ 

TEXT: 

POS # 

NAME 

ODDS 

Line 

7230 

CTRL + INV 

+ 

TEXT: 

PRESS 

(SPACE) 

FOR WINNINGS 

Line 

7270 

CTRL + INV 

+ 

TEXT: 

SPACE 

and SAME 

PEOPLE BETTING 



(Y/N)? then . 

SPACE 




Line 

8050 

CTRL + INV 

+ 

TEXT: 

# NAME ODDS 


Line 

8160 

SHIFT + U 






Line 

8240 

SHIFT + U 






Line 

8320 

SHIFT + U 






Line 

8360 

SHIFT + U 






Line 

9110 

CTRL + INV 

+ 

TEXT: 

BETTOR 

KITTY 

Line 

30100 

CTRL + INV 

+ 

TEXT: 

VZ-200 

CUP 


Line 

30190 

CTRL + INV 

+ 

TEXT: 

PRESS 

(SPACE) 

TO PROCEED 

Line 

31010 

SHIFT + Y'S 






Line 

31020 

SHIFT + T'S 






Line 

31040 

SHIFT + I 






Line 

31050 

SHIFT + U 






Line 

31070 

SHIFT + S 






Line 

40000 

CTRL + INV 

+ 

TEXT: 

SPACE 

1 SPACE 


Line 

40010 

CTRL + INV 

+ 

TEXT: 

SPACE 

2 SPACE 


Line 

40020 

CTRL + INV 

+ 

TEXT: 

SPACE 

3 SPACE 


Line 

40030 

CTRL + INV 

+ 

TEXT: 

SPACE 

4 SPACE 


Line 

40040 

CTRL + INV 

+ 

TEXT: 

SPACE 

5 SPACE 


Line 

40050 

CTRL + INV 

+ 

TEXT: 

SPACE 

6 SPACE 




"WHO SlimCH£D Off MY COWWItt 

in the middle of a program 


5 ) 
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